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ABSTRACT 



PROGRAM mm ,'BTS COHTWM .MEMORY Ap^DRESi^C 



OOOOOO TO 75777b. IT VERIFIES THAT EACH AOORESS 
IS UNIQUE (All AOORESS TEST) AMD THAT EACH MEMORY 
LOCATION CAN BE READ/WRITTEN RELIABLY (WORST CASE 
NOISE TESTS). IF MEMORY MANAGEMENT IS AVAILABLE. 
ALL TESTING IS PERFORMED WITH MEMORY MANAGEMENT 
ENABLED, (UNLESS DISABLED). 

THIS PROGRAM MAY BE USED TO ADJUST/MARGIN MEMORY. 

ALSO INCLUDED IS A TOGGLE IN ADDRESS TEST. 

ALSO INCLUDED IS THE BRANCH GOBBLE MOS TEST. NOTE 
THAT ONLY SECTIONS 9.1 THROUGH 9.4 APPLY TO BRANCH 
GOBBLE. 



HE WCGBAM DDGA6 HAS BEEN CREATED BY MODIFYING THE 
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OZOne PROGRAM. THE DZQM8 PROGRAM IS A 0 - 124K 
MEMORY EXERCISER. BUT THE SEDM SYSTEM HAS MUCH LESS 
MEMORY AND NO MOS MEMORY AND NO MEMORY MANAGEMENT OPTION. 
SO. THERE ARE SOME HARMLESS EXTRA CODES (E.G. BRANCH GOBBLE 
MCS MEMORY TEST) IN DDOAB PROGRAM WHICH COULD HAVE BEEN 
DELETED TO CREATE AN EXCLUSIVE SEDM MEMORY EXERCISER. 
PLEASE IGNORE SUCH EXTRA CODES WHILE RUNNING 
A SED* SYSTEM. 
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CHAPTER 1 
REQUIREMENTS 

1.1 EQUIPMENT 

THE PDP-11 FAMILY PROCESSOR WITH 8K MEMORY. 
OPTIONAL. . . 

KTH-C OR IT11-C MEMORY MANAGEMENT OPTION OR MF11 PARITY OPTION. 

1.2 STORAGE 

PROGRAM STORAGE - THE PROGRAM USES MEMORY 0-17777. 

1.3 PRELIMINARY PROGRAMS 

IPOP-11 FAMILY INSTRUCTION EXERCISER (DCQKC OR DZQKC) KTH-C'KTH-D 
L3GIC TESTS. 
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CHAPTER 2 
LOADING AND STARTING PROCEDURE 

LOAD PROGRAM INTO MEMORY USING A8S LOADER. 
LOAD ADDRESS 200 

SET SM12 IN DESIRED POSITION (SEE CHAPTER 3). 

SET SW1S=1 OR UP IF NO TTY WITH THE SYSTEM 

PRESS START. 

THERE HILL BE A S ON THE OISPLAY LIGHTS FOR A 
FEU SECONDS AFTER EACH PASS. THEN PROGRAM UILL HALT 
AT LOCATION 252. IF SW6 WAS UP. 
IF PROGRAM HALTS AT 252, PRESS CONTINUE. 

ASTERISK WILL BE PRINTED AFTER EACH PASS. 
"DZQMB DONE!" WILL BE PRINTED AFTER 8 PASSES. 

PASS COUNT MAY BE MONITORED IN THE DISPLAY REGISTER (11 '45) OR 
LOCA T ION 756. 

NOTE 

THIS PROGRAM SAVES THE LOADERS BOOT AND 
ABS. TO RESTORE THE LOADERS. RESTART AT 
162. BEFORE RESTARTING INSURE THAT THE 
PROGRAM IS NOT RELOCATED. IF THE 
PROGRAM IS RELOCATED, THE PC WILL 
INDICATE WHICH BANK CONTAINS THE 
PROGRAM. NEXT START THE PROGRAM AT #* 
12354. WHERE * = BITS 13-15 OF THE PC. 
THE PROGRAM WILL RELOCATE BACK TO 0-4K 
AND HALT AT 176. PRESS CONTINUE TO 
RESUME TESTING. 
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2.1 ACT11 OPERATION 

IF THE PROGRAM IS RUN IN QUICK VERIFY MOOE UNDER flCTll THE PROGRAM IS 
CONE AFTER THE FIRST PASS. ALSO THE PROGRAM DOES NOT RELOCATE TO TEST 
"WE LOUER 4K OF MEMORY. 
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CHAPTER 3 
SWI T CH SETTINGS 



SW15=i 


OR 


UP 


HALT ON ERROR AT IOC. >3C 


SW14=1 


OR 


UP 


LOOP SUBTEST 


SW13=1 


OR 


UP 


INHIBIT ERROR TYPEOUT 


SW12=1 


OR 


UP 


INHIBIT USE OF MEMORY MANAGEMENT 



NOTE 

INHIBITING THE USE OF MEMORY MANAGEMENT 
CAN BE DONE ONLY WHEN THE PROGRAM IS 
STARTED. IF THE USE OF MEMORY 
MANAGEMENT IS INHIBITED THE LAST ADDRESS 
AS TYPED BY THE PROGRAM WILL ONLY 
REFLECT THE AMOUNT OF MEMORY UP TO 28K 
(LAST ADDRESS = 16.0000). 



SWllsl OR UP INHIBIT SUBTEST ITERATION 

SWlOsl OR UP RING BELL ON ERROR 
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SWITCH SETTINGS 

SW9=1 OR UP DISPLAY ERROR COUNT IN DISPLAY REGISTER 

SU9=0 OR DOUN DISPLAY PASS COUNT IN DISPLAY REGISTER 

SU8=1 OR UP HALT PROGRAM UNRELOCATED AND RESTORE LOADERS 

SU&=1 OR UP HALT ON END OF PASS 

SU5=1 OR UP INHIBIT PARITY ERROR DETECTION (INITIAL 

SWlsl OR UP THERE IS NO TTY WITH THE SYSTEM; SO PATCH TAGS 

STARTUP ONLY) 

NOTE 

WITH PARITY ERROR DETECTION ENABLED. A 
MEMORY FAILURE HILL CAUSE A PARITY 
ERROR. THE ERROR PRINTOUT ON A PARITY 
ERROR DOES NOT TYPE THE GOOD DATA. 
THUS. A BIT DROP OR PICKUP HILL NOT BE 
TYPE6 AS SUCH. IT IS BEST TO RUN THE 
PROGRAM FOR ' PASS (UNTIL AN * IS TYPED) 
WITH PARITY DISABLED. THEN RESTART THE 
PROGRAM WITH PARITY ENABLED. 
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CHAPTER 4 
SUBROUTINE ABSTRACTS 



4.1 SCOPE 

THE PROGRAM STORES IN Rl THE PC OF THE LAST TEST SUCCESSFULLY EXECUTED 
AND MAY BE USED AS AN AID IN DEBUGGING IF THE PROGRAM 'BOMBS' BECAUSE 
OF A HARDWARE FAILURE. 
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CHAPTER 5 
ERRORS 



THESE TESTS PRINT OUT THE PC WHERE THE ERROR WAS DETECTED, THE FAILING 
ADDRESS, THE GOOD DATA, AND THE BAD DATA I.E. 

PC=XXXXXX ADDRESS AAAAAA GOOD DATA GGGGGG BAD DATA BBBBBB 

THE ADDRESS OF THE FAILING LOCATION IS THE TRUE 18 BIT PHYSICAL 
ADDRESS. 

IF SW15 WAS UP, PROGRAM WILL HALT AT LOC. 1430 ON ERROR. 

NOTE 

WHEN TESTING MEMORY LOCATIONS 0-17776 
THE PC TYPED WILL BE A MULTIPLE OF 20000 
GREATER THAN REFLECTED IN THE PROGRAM 
LISTING. 

THE FAILING ADDRESS (PC + 2) IS IN Rl 

THE ADDRESS OF THE BAD DATA IS IN (R2) -2 

THE GOOD DATA IN RO 

THE BAD DATA IN R3 

THE ADDRESS OF GOOD DATA IS IN RH (RANDOM DATA TEST ONLY). WHEN AN 
ERROR IS DETECTED WHEN EXERCISING THE MEMORY USING THE WORST CASE 
NOISE PATTERNS, THE USER SHOULD RESTART THE PROGRAM SELECTING PROGRAM 
(SEE CHAPTER 8 FOR DETAILS) SELECTING THE APPROPRIATE PARAMETERS. THE 
USER CAN USE THE PC AND ADDRESS OF THE FAILURE TO SELECT THE PROPER 
CORE BANK(S) AFFECTED AND ALSO THE SPECIFIC PATTERN. THIS ALLOWS 
MAXIMUM SCOPE CAPABILITIES. 
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IF THE MEMORY PARITY OPTIONS ARE INSTALLED THE PROGRAM RUNS WITH THE 
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ERRORS 

ACTION ENABLE BIT SET (BIT 0). IF A PARITY ERROR IS DETECTED THE 
PROGRAM WILL TYPE: 

PARITY ERROR 

3NC SCAN MEMORY FOR THE ADDRESS (ES) CAUSING THE PARITY ERROR(S). WHEN 
'HE PARITY ERROR IS DETECTED AN ERROR MILL BE TYPED AS SHOW BELOW: 

PC=XXXXXX AOORESS AAAAAA BAD DATA B88BB8 

PRESS CONTINUE OR RESTART TO RESUME TESTING. IF A PARITY ERROR IS NOT 
DEFECTED ON SCAN THE PROGRAM HILL TYPE: 

PARITY ERROR NOT FOUND ON SCAN 

PC=XXXXXX ADDRESSsAAAAAA 



«HERE: 



AAAAAAsPC AT TINE PARITY ERROR HAS DETECTED. 



NOTE 

parity is disabled when the program is 

relocate:. 



COS 

TEST DOGAB-A 0-12MK MEMORY EXERCISER MACYU B7(.73Z) 10-SEP-76 10:35 PAGE IS 
X3ABA.PI1 

PDP-11 0-I2HK MEMORY EXERCISER PAGE 13 

RESTRICTIONS 



CHAPTER b 
RESTRICTIONS 



STARTING RESTRICTION 

UHEN PROGRAM IS RELOCATED, DONOT RESTART AT ADDRESS 200 
OR 214. 



7.2 OPERATIONAL RESTRICTION 

PROGRAM CHECKS CONTIGUOUS MEMORY. IF 
THE PROGRAM IS RELOCATED PROGRAM 
>£HORY IS AVAILABLE OR SELECTED THE 3 
tMORY ONLY. DO NOT POWER FAIL 
SUNNING IN ICS MEMORY OR RELOCATED. 



A PARITY ERROR TRAP OCCURS WHEN 
ACTION IS UNDEFINED. IF PARITY 
XOR 9 TEST PATTERN IS FOR PARITY 
THE PROGRAM WHEN THE PROGRAM IS 
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CHAPTER 7 
MISCELLANEOUS 



IF THE PROGRAM HALTS IN THE TRAP/ INTERRUPT VECTOR AREA (0-1000 >. 
EXAMINE REGISTER b (THE STACK PTR). Rb CONTAINS THE AODRESS WHERE THE 
PC OF THE INSTRUCTION THAT CAUSED THE TRAP ABORT IS STORED. SEE ALSO 
Rl (Rl SPECIFIES THE LAST TEST COMPLETED ) . 

NOTE 

THE PDP11/45 WILL DISPLAY THE TRAP 
VECTOR ADDRESS+H IN THE ADDRESS LIGHTS. 
THUS, A TRAP TO 4 (BUS ERROR) UILL 
DISPLAY 10 IN THE ADDRESS LIGHTS. 



7.1 STACK POINTER 

THE STACK POINTER IS INITIALLY SET TO 500. AND IS RESET TO THIS VALUE 
AT THE START OF EACH SUBTEST. 



7.2 PASS COUNT 

TURNING THE SWITCH TO THE DISPLAY POSITION. (THE PASS COUNT IS ALSO 
STORED IN LOCATION 1000. ) THE PASS COUNT SHOULD BE NONITQREO IN THE 
EVENT THAT THE PROGRAM ENTERS AN UNDEFINED LOOP. NOTE THAT BIT 15 0* 
TnE DISPLAY REGISTER IS NOT PART OF THE PASS COUNT. BIT 15. IF ON. 
INDICATES THA T THE PROGRAM IS IN ITS RELOCATED CYCLE. 
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REGISTER. IS NOT PART OF THE ERROR COUNT. BIT 15, IF ON. INDICATES 
'HAT THE PROGRAM IS IN ITS RELOCATED CYCLE. 

~.H DISPLAY REGISTER 



ERROR COUNT. UHEN BIT IS IS ON, THE PROGRAM IS PERFORMING A RELOCATED 
CYCLE. UHEN THE PROGRAM IS RELOCATED, THE SPECIAL RESTART PROCEDURES 
OF CHAPTER 2 MUST BE FOLLOWED. 



7.5 PROGRAM RELOCATION 

UHEN THE PROGRAM IS RELOCATED. VERIFICATION IS MADE THAT THE PROGRAM 



7.6 POWER FAIL 

THE PROGRAM MAY BE POWER FAILED WHEN RUNNING. WHEN THE POWER RETJRN5 
THE PROGRAM WILL CONTINUE IN SEQUENCE. 



PDP-11 0-124K MEMORY EXERCISER 
MISCELLANEOUS 
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CAUTION 




DO NOT TURN POWER OFF/ON UNTIL THE 
MESSAGE 'POWER FAILED' HAS BEEN TYPED. 
THIS IS BECAUSE THE STACK MAY OVERFLOW . 



7.7 E/ECJ~ICr« t :ie 
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EXECUTION TIME IS DEPENOENT ON TYPE OF PROCESSER. TYPE OF NEHORY, AND 
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"ISCEl.ANEOUS 

•WCjrr OF HEMORY. SOflE REPRESENTATIVE TIMES (PER PASS) ARE: 

11 /OS WITH 28K MEMORY - 1 MIN. 
II 45 UITH %K MEMORY - 3 MIN. 
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CHAPTER 8 
PROGRAM DESCRIPTION 



THE PROGRAM VERIFIES EACH ADDRESS BY WRITING THE VALUE OF EACH ADDRESS 
INTO ITSELF STARTING AT LOCATION 20000 AND ENDING AT THE LAST LOCATION 
IN MEMORY. THE VALUE OF THE LAST LOCATION *2 IS TYPED ON THE TTY. 
NEXT THE VALUES WRITTEN ARE VERIFIED. TO COMPLETE THE ADDRESS TEST 
THE COMPLEMENT VALUE OF EACH MEMORY ADDRESS IS WRITTEN STARTING AT THE 
LAST MEMORY ADORESS AND ENDING AT ADDRESS 20000. THE WRITTEN 
COMPLEMENT VALUES ARE THEN VERIFIED. THE NEXT PHASE OF TESTING 
INCLUDES READING. WRITING AND CHECKING MEMORY USING SEVERAL WORST CASE 
NOISE TEST PATTERNS (1 XOR 8, 3 XOR 9, AND 8 XOR 13). A SUBTEST IS 
DEDICATED TO CHECKING EACH PATTERN. THE TEST PROCEEDS BY EXERCISING 
EACH BANK OF MEMORY USING THE TEST PATTERNS NOTED ABOVE. NOTE T HAT 

ALL MEMORY FROM 20000 TO THE LAST ADDRESS HAS BEEN TESTED. THE PROGRAM 
RELOCATES TO THE NEXT 4K MEMORY BANK AND TESTS LOCATIONS 0-1777fc 
USING (1 XOR 8). THE PROGRAM THEN RELOCATES TO 40000 { 100000 IF 
AVAILABLE) AND CHECKS MEMORY USING 3 XOR 9, AND 8 XOR 13 TEST 
PATTERN. THE PROGRAM THEN CHECKS MEMORY USING fWCOM DATA (RANTST). 
THIS ROUTINE MOVES THE PROGRAM CODE THROUGHOUT MEMORY STARTING AT 
LXATION 20000. AND RELOCATES THE DATA BY A 32( DECIMAL) WORD OFFSET ON 
EACH SUBSEQUENT RELOCATION. I.E., FIRST RELOCATION IS TO 20000. NEXT 
IS TO 20100. THEN 20200. ETC. AFTER RELOCATION THE CODE MOVED IS 
CHECKED AGAINST THE ORIGINAL CODE (0-1777&). WHEN THE RANDOM DATA 
TEST IS COMPLETE THE PROGRAM THEN SUCCESSIVELY ROTATES A *0' BIT 
(ROTO) AND A T BIT (R0T1) THROUGH ALL OF MEMORY. WHEN ALL TESTING 
IS COMPLETE THE PROGRAM RELOCATES TO ITS ORIGINAL POSITION, INCREMENTS 
THE PASS COUNT (LOCATION 1000) AND RESTARTS BEGINNING WITH THE UORST 
CASE NOISE TESTS. AN ASTERISK (*) WILL BE TYPED ON COMPLETION OF EACH 
PASS, AND WHEN 8 PASSES HAVE BEEN COMPLETED THE PROGRAM WILL TYPE 
' DZGMB DONE' AND RESTART THE PROGRAM BEGINNING WITH THE MEMORY ADORESS 
T E5 T S. 
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PROGRAM DESCRIPTION 

THIS PROGRAM IS PROVIDED TO ALLOW THE USER TO SPECIFY CERTAIN TEST 
PARAMETERS AS SHOWN BELOW: 

1. ENABLE/DISABLE PARITY ERROR INTERRUPTS 

2. STARTING BANK NUMBER FOR TEST 

3. NUMBER OF 4K BANkTtO TEST 

4. PATTERN TO BE USED 



NOTE 

ALL INPUTS ARE IN OCTAL. 



8.1.1 STARTING PROCEDURE: 

1. LOAD ADDRESS 214 

2. SET SW01=1 (UP) — ONLY IF THERE IS NO TTY 

3. PRESS START 

IF SW01 WAS UP I.E.. IF THERE IS NO TTY, PROGRAM 
WILL HALT AT LOC. 5012. 

IF SO, PATCH THE FOLLOWING TAGS: (REFER TO 8.1.2) 

.PARIT — WITH 0 (DISABLE PARITY) OR 1 (ENABLE PAR.) 
.STBANK — WITH 0 OR 1 OR 2 ETC (STARTING BANK •) 

.BANKS WITH 1 IF THERE IS 8K OR LESS OF MEMORY 

.PAT — WITH PATTERN I 

4. PRESS CONTINUE (IF PROGRAM HAD HALTED BECAUSE 
OF SW01 BEING UP) 

8.1.2 PROGRAM 2 USER PARAMETERS 

1. ENABLE PARITY' 1/0 = YES/NO. TYPE (OR PATCH .PARIT) 1 TO ENABLE INTERRUPT ON 
PARITY ERROR. TYPE (OR PATCH) 0 TO DISABLE INTERRUPT. 



STARTING BANK t(8) 7 
TESTING. 



TYPE (OR PATCH . STBANK ) THE 4K BANK WHERE YOU WISH TO BEGIN 



TYPE 
(OR PATCH) 

0 
1 
2 
3 
4 

5 

c 



TO START AT TYPE 



000000 
020000 
040000 
050000 

inoooo 

120000 
140000 



20 
21 
22 
23 
24 
25 



TO START AT 



400000 
420000 
440000 
450000 
500000 
520000 
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IP 
11 
12 
13 
14 
15 
lb 
17 
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IbOOOO 
200000 
220000 
2M0000 
280000 
300000 
320000 
3M0000 
360000 



2b 
27 
30 
31 
32 
33 
34 
35 
3b 



540000 
SbOOOO 
bOOOOO 
b20000 
b40000 
bbOOOO 
700000 
720000 
740000 



NOTE 

TYPE ONLY NUMBERS SHOWN!!! 

I NUMBER OF 4K BANKS TO TEST (8)' TYPE (OR PATCH .BANKS- IN OCTAL THE NUMBER OF 
4K BANKS TO TEST. 

PATTERN 



TYPE TO SELECT 

(OR PATCH) 
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PROGRAM DESCRIPTION 

0 1 XOR 8 TEST PATTERN 

1 3 XOR 9 TEST PATTERN 

2 8 XOR 13 TEST PATTERN 

3 USER CONSTANT 

4 ROTATING 0 

5 ROTATING 1 

5 3 XOR 9 PARITY PATTERN 

7 0,1,2,4,5 ABOVE 

NOTE 

PROGRAM WILL NOT ALLOW AN ODD NUMBER OF 
4K BANKS TO BE TESTED IF PATTERN 2 OR 7 
IS SELECTED. IF PATTERN 13 IS SELECTED 
THE PROGRAM WILL REQUEST A CONSTANT. 
TYPE A 6 DIGIT OCTAL NUMBER, TO ENTER A 
NEW CONSTANT TYPE AN 'A' AND WAIT FOR 
THE PROGRAM TO RESPOND. THE STARTING 
ADDRESS IS 214. 



8.1.3 RESTARTING PROCEDURE: 

IF YOU HAD SELECTED BANK 0 TO START, RESTART AT 32460 

THEN AT 214. OTHERWISE. YOU WILL HAVE 

TO START 8Y RELOADING ABS. LOADER + PROGRAM. 

8.1.4 PROGRAM 2 USE 

PROGRAM 2 CAN BE EFFECTIVELY USED TO MAKE PROPER ADJUSTMENTS TO A 
SPECIFIC MEMORY BANK AND ALSO TO 'MARGIN' MEMORY. THIS IS SO BECAUSE 
THE PROGRAM IS NOT RUNNING IN THE MEMORY BANK(S) BEING 
ADJUSTED/MARGINED. THUS ALL MEMORY FROM 0-1 24K MAY BE 
ADJUSTED/MARGINED. PARITY SHOULD BE DESELECTED WHEN MAKING ANY 
ADJUSTMENTS PARTICULARLY WHEN TESTING THE FIRST 4K BANK(S). 



8.2 PROGRAM 3 

THIS PROGRAM IS THE SAME AS PROGRAM 2 WITH THE FOLLOWING EXCEPTIONS: 

1. INSTEAD OF NUMBER OF 4K BANKS TO TEST. TYPE NUMBER OF 
255 (DECIMAL), 400 (OCTAL) WORD BLOCKS TO TEST. 

2. DO NOT SELECT PATTERN 2 OR 7. 
THE STARTING ADDRESS IS 220. 



N02 

TEST DDQA8-A 0-12HK MEMORY EXERCISER MACY11 27(732) 10-SEP-7£> 10:35 PAGE 2b 
DDQABA.P11 

8.3 PROGRAM 4 

PROGRAM H CAN BE USED TO WRITE/READ USER DEFINED DATA INTO ANY SINGLE 
ADDRESS. THE PROGRAM WRITES THE DATA AND CHECKS IT. 

THE PROGRAM WILL REQUEST AN 18 BIT ADDRESS AND IF SWITCH 0 s 0 A lb 
Sr CONSTANT (DATA). IF SWITCH 0=1 THE PROGRAM WILL TYPE THE 
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vONTENTS^^O^NTIflL ADORESSES UNTIL EITHER SWITCH 0:0 OR A NEW 

JO ENTER ft NEU AOORESS AND CONSTANT TYPE AN 'A* ANO WAIT TOR THE 
P^JGRhM TO RESPOND. 

'HE STARTING ADDRESS IS 224. 



8.4 PROGRAM 5 

AgOJE^ im BEEN WITTEN EACH AOORESS IS CWfCKEDFOR THE 
CORRECT CONTENTS STARTING WITH THE UPPER LIMIT AND CONTINUING TO THE 
LOWER LIMIT. 



LOCATION CONTENTS 



MNEMONIC COMMENT 



10 
12 
14 
IB 
20 
22 
2H 
26 
30 

32 
3H 
36 
40 
42 
44 
46 



012700 
000050 
010001 
020037 
177570 
001403 
010010 
005720 
000772 

010004 
020001 
001767 
024000 
001774 
000000 
000772 



MOV I50.R0 

MOV R0,R1 
IS: CMP RO.StSWR 

BEO 2S 

MOV feURQ) 



TST (ROH 
BR IS 



GET FIRST ADDRESS 

TO TEST 

SAVE IN Rl 

CHECK UPPER LIMIT 

(IN SWITCH REGISTER) 

BRANCH IF AT UPPER LIMIT 

LOAD VALUE INTO ADDRESS 

STEP TO NEXT AOORESS 

LOOP UNTIL DONE 



2S: 
3S: 



MOV R0.R4 -SAVE UPPER LIMIT 

CMP RO.Rl ;CHECK IF AT LOWER LIMIT 

BEO IS BRANCH IF DONE 

CMP -(RO),RO ;CHECK DATA WRITTEN 

BEO 3S ; BRANCH IF OK 

HALT ; ERROR 

BR 3S ;LOOP BACK 



A^ER T 0GGLING THE PROGRAM LA=lO #*SET UPPER LIMIT**, START. 



NOTE 

THE UPPER LIMIT AOORESS OBTAINED FROM 
THE SWITCH REGISTER MAY BE CHANGED 
DUPING PROGRAM OPERATION. HOWEV£R i 
OCCASIONALLY THE PROGRAM MAY HALT 
BECAUSE OF 'SWITCH BOUNCE'. (THE BEST 
PROCEDURE WHEN CHANGING LIMITS IS TO 
STOP THE PROGRAM MAKE THE CHANGE AND 
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8.5 PROGRAM 6 

EACH ADDRESS IS CHECKED FOR THE CORRECT CONTENTS STARTING WITH THE 
..OWER LIMIT AOORESS AND CONTINUING TO THE UPPER LIMIT. TOGGLE IN THE 
FOLLOWING PATCHES TO PROGRAM 5 ABOVE. 

COMMENT 

CHANGE LOWER LIMIT 
BRANCH TO PROGRAM & 
GET UPPER LIMIT 

LIMIT 

bSScVtf^T 0 !**^ LIMIT 
GO TO PROGRAM 5 IF DONE 
GET VALUE OF ADDRESS 
COMPLEMENT VALUE 
CHECK ADDRESS 
BRANCH IF OK 
ERROR 

GO CHECK NEXT ADDRESS 



LOCATION 


CONTENTS 




MNEMONIC 


12 


100 






36 


001404 




BEQ 4S 


50 


010402 


4S: 


MOV R4. R2 


52 


005142 


5S: 


COM -(R2) 


54 


020201 




CMP R2/R1 


56 
6C 




6S: 


r1,R4 


62 


001755 




BEQ IS 


64 


010203 




MOV R2.R3 


66 


005103 




COM R3 


70 


020322 




CMP R3,(R2)+ 


72 


001772 




BEQ 6S 


7M 


000000 




HALT 


76 


00077C 




BR 6S 
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CHAPTER 9 
3RANCH GOBBLE MOS TEST 



<3. 1 ABSTRACT 

THE BRANCHG0B8LE PROGRAM IS USED TO TEST MOS MEMORY. CONTIGUOUS 
LOCATIONS ARE TESTED BETWEEN TWO LIMITS IN A MINIMUM BK, MAXIMUM 12* 
MEMORY MACHINE. IF PARITY IS AVAILABLE IT IS ENABLED. 



9.2 OPERATING PROCEDURE 

1. LOADING: LOAD THE DZOMBG PROGRAM INTO MEMORY USING THE 
ABSOLUTE LOADERS. 

2. STARTING: LOAO AOORESS 270 AND PRESS THE START BUTTON. 

3. THE PROGRAM HILL FIRST IDENTIFY ITSELF ON TTY: 

BRANCH GOBBLE 

4. THEN THE ABSOLUTE LOADER HILL BE SAVED. 

5. A CHECK MILL BE MADE FOR PARITY REGISTERS. IF NONE ARE FOUNC 
THE MESSAGE: 

NO PARITY 

WIJ. BE TYPED TO THE USER. IF PARITY IS FOUND IT IS TURNED 
ON, AND THE MESSAGE, 

PARITY ENABLED 

WILL BE TYPED TO THE USER. THIS WILL BE FOLLOWED BY A LIST 
OF THE UNIBUS ADDRESSES OF THE PARITY REGISTERS FOUND AND 
ENABLED. 
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BE RUN USING MEMORY MANAGE MEN**. 

USE KT11' ( Y OR N) 

> 

IF THE USER TYPES Y THEN MEMORY MANAGEMENT MILL BE USED 
DURING THE PENDING TEST. IF HE TYPES N. THEN MEMORY 
MANAGEMENT UILL NOT BE USED. TYPING ANYTHING ELSE OTHER THAN 
Y OR N WILL CAUSE THE QUESTION TO BE REPEATED. 

'HE USER UILL THEN BE ASKED TO GIVE THE LIMITS OF THE TEST 
SPAN: 

HIGH LIMIT' 

> 



AND: 



LOW LIMIT' 

> 



RESTRICTIONS ON THE USER'S RESPONSE ARE: 

A. THE NUMBERS MUST BE VALID (16-BIT) b-DIGIT OCTAL 
ADDRESSES, REAL NOT VIRTUAL. 

S. THE NUMBERS SHOULD BE MULTIPLES OF 100 (OCTAL). 

C. THE HIGH LIMIT MUST BE GREATER THAN THE LOU LIMIT. 

I. IF MEMORY MANAGEMENT IS NOT USED. HIGH LIMIT MUST BE LESS 
THAN OR EQUAL TO lfeOOOO. 

E. HIGH LIMIT CAN BE 1 ♦ THE HIGHEST REAL CORE ADORESS. FOR 
EXAMPLE, IN AN BK MACHINE, HIGH LIMIT CAN EQUAL 40000. 

VIOLATIONS TO THESE RESTRICTIONS UILL BE DEALT UITH IN THIS 
WAY: 

A. A QUESTION MARK AND T HE PROMPT UILL BE ISSUED: 



THE USER IS THEN EXPECTED TO INPUT THAT LIMIT AGAIN; 
THIS TIME CORRECTLY. 

WHAT EVER THE LAST TUO OCTAL DIGITS OF THE NUMBER UHICH 
T HE USER TYPED THEY UILL BE ASSEMBLED AS ZEROES. 

T HE USER UILL BE ASKED FOP OTHER LIMITS BY REPEATING THIS 
'7). BEFORE STEP »7j IS REPEATED 
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WILL BE TYPED. 
D. SAME AS 3. 

a. THE TEST STARTS. THE TEST UILL LOOP INDEFINITELY BETUEEN THE 
TWO LIMITS UNLESS THE USER HALTS THE PROGRAM OR AN ERROR IS 
ENCOUNTERED. AN ASTERISK IS TYPED AT THE BEGINNING OF EACH 
PASS MODE. 

9. TO STOP THE TEST RUNNING AND START ANOTHER HIT THE HALT 
SWITCH AND RETURN STEP 2. ANY TEST BUT THE FIRST WILL NOT 
INCLUDE STEP H. 

IC. TO STOP THE TEST AND RESTORE THE LOADER, HIT THE HALT SWITCH, 
LOAD ADDRESS 162 AND START. WHEN THE LOADER IS RESTORED THE 
PROGRAM WILL HALT AT LOCATION 200. 

11. TO STOP THE TEST AND START THE 0-12HK MEMORY TEST HIT THE 
HALT SWITCH, LOAD ADDRESS 200, ANO START. 

12. DATA LIGHTS. THE DATA LIGHTS WILL DISPLAY THE CURRENT 
LXATION BEING TESTED DURING A BRANCH GOBBLE TEST. WHEN A 
HOS MEMORY FAILURE OCCURS THESE LIGHTS WILL CONTAIN VIRTUAL 
Ub-BIT) ADDRESS "NEAR" THE FAILURE. 



9.3 ERRORS 



1. ERRORS IN OPERATING THE PROGRAM ARE DESCRIBED IN OPERATING 
PROCEDURE 9.2. 

5. IF A PARITY ERROR IS DETECTED THE USER IS TOLD THE PC*2 AT 
THET I ME OF THE ERROR: 

PARITY ERROR 
PC=XXXXXX 

THEN THE SCAN IS MAOE THROUGH ALL OF MEMORY TO TRY TO FORCE 
T HE ERROR TO ARISE AGAIN. IF IT IS NOT FOUND THE MESSAGE 

SCAN COMPLETE 

IS TYPED AND THE TEST IS RESTARTEO. 

IF THE ERROR IS DETECTED ON THE SCAN THEN THE USER IS GIVEN 
THE ADDRESS OF THE LOCATION CAUSING THE PARITY ERROR AND THE 
CONTENTS OF THAT LOCATION: 

XXXXXX HAD BAD DATA XXXXXX 

IF MEMORY MANAGEMENT WAS OFF DURING THE SCAN FOR THE E°RCR 
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KT11 OFF 
IS TYPED. 

IF MEMORY MANAGEMENT WAS ON DURING THE SCAN: 



KT11 ON PARsXXXXXX 



IS TYPED. WHERE THE PAR (PAGE ADDRESS REGISTER) GIV 
PAR WHICH SHOULD BE USEDIN RELOCATING THE VIRTUAL ADDRESS 



GIVEN IS THAI 



GIVEN FOR THE ERROR ONTO A REAL CORE ADORESS. 
THIS RELOCATION IS GIVEN IN THE NOTE BELOW. 



THE METHOD FOR 



AFTER ANY PARITY ISENCOUNTERED AND THE 
TEST HILL BE RESTARTED. 



USER NOTIFIED, THE 



WHENEVER THE BRANCH GOBBLE TEST BRINGS OUT AN ERROR IN MOS 
MEMORY IT NAY SURFACE AS A PARITY AND BE HANDLED AS DESCRIBED 
ABOVE. OTHERWISE THE ADORESS (VIRTUAL IF MEMORY MANAGEMENT 
IS ON) IN THE DATA LIGHTS WILL DESIGNATE THE VICINITY OF THE 
ERROR. IF MEMORY MANAGEMENT IS ON. RELOCATE THE AODRESS IN 
THE DATA LIGHTS IN THE MANNER DESCRIBED IN THE NOTE BELOW. 



NOTE 

TO COMPUTE THE REAL ADORESS OF AN 
ADORESS RELOCATED BY MEMORY MANAGEMENT. 
ADD THE LOW ORDER 13-BITS OF THE VIRTUAL 
AODRESS TO THE CORRESPONDING PAR 
SHIFTED, 5 BITS TO THE ucFT: 

VIRTUAL ADDRESS = 0 OOX XXX XXX XXX XXX 

PAR = YYY YYY YYY YYY 000 000 

REAL AODRESS = 111 121 222 222 222 222 

TO DETERMINE WHICH PAR TO USE REMEMBER 
THAT ON KERNEL SPACE IS USED IN ANY TEST 
HERE. TAKE THE HIGH ORDER 3-BITS OF THE 
VIRTUAL ADORESS AND USE THEM TO 
DESIGNATE THE KIPAR TO USE. FOR 
INSTANCE. IF THE VIRTUAL ADORESS IS 
031676 U$E KIPAR1 BECAUSE THE UPPER 3 
BITS OF THE VIRTUAL ADDRESS ARE 001=1. 

IF AN ERROR CONDITION ARISES. EITHER AS A PARITY ERROR OR ONE 
NOT A APPARENT SUCH AS THE PROGRAM HALTS OR IT IS CLEAR FROM 
THE ADDRESS AND DISPLAY LIGHTS THAT THE PROGRAM IS NOT 
RUNNING ITS NORMAL COURSE, THE USER CAN ENTER CONSOLE MODE AN 
EXAMINE THE CONTENTS OF THE MEMORY LOCATIONS STARTING AT THE 
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E^EPT?ONS : 0 lS232^?S T UNDE'TERMf M^LE^^ISSOM^HaJLO^ONTfilN 
EITHER 1S370 OR 3S370). IN THIS WAY THE USER SHOULD BE ABLE 
TO DETERMINE WHICH BITS MERE LOST IN WHAT WORDS. 



9.4 PROGRAM DESCRIPTION 

THIS VERSION OF THE BRANCH G0B8LE TEST IS TAKEN ALMOST DIRECTLY FROM 
THE DZGKA-A INSTRUCTION EXERCISER WHICH CONTAINED THE ORIGINAL BRANCH 
GOBBLE. WHAT HAS BEEN DONE HERE IS TO GIVE THAT TEST AN INTERFACE TO 
THE USER AND MEMORY MANAGEMENT FACILITIES. THESE ADDITIONS HAVE BEEN 
DONE IN A MAY MHICH ALLOWS THE TEST TO RUN AS IT DID IN ITS ORIGINAL 
FORM. DATA IS COLLECTED FROM THE USER AND IF MEMORY MANAGEMENT IS 
NEEDED IT IS SET UP AND THAT TEST IS ALLOHED TO RUN BETMEEN THE 
DESIGNATED LIMITS. 



11*37 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1215 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1225 
1227 
1228 



.NLIST 
.LIST 
.ABS 
.MCALL 
.TITLE 



ND.HC 
HE 



DOQAB-A 0-124K MEMORY EXERCISER 
riNG_INST & DEFINITIONS 



1TYPE 

.SBTTL STARTING 
jCOPYRIGHT 1973 DIGITAL EQUIPMENT CORP. , MAYNARD.MASS. 

THIS TEST CHECKS THAT ALL MEMORY AOORESSES ARE UNIQUE USING AOORESS TESTS 
ANO CHECKS DATA RELIABILITY OF MEMORY USING WORST CASE NOISE TEST PATTERNS 
A RANDOM I PATTERN (PROGRAM COOE RELOCATED), A ROTATING 0 AMD ROTATING 
1 PATTERN. 

ALSO INCLUDED ARE USER TESTS WHICH CRN BE USED TO TEST SPECIFIED SEG- 
MENTS OF MEMORY USING THE PATTERNS MENTIONED ABOVE. ADDITIONALLY A 
28 WORD TOGGLE IN PROGRAM IS DOCUMENTED (SEC 9.5 OF THE DOCUMENT) kHICK 
CAN BE USED IF AN ADDRESSING MALFUNCTION IS SUSPECTED INVOLVING THE FIRST 
4K OF MEMORY. 

A MOS MEMORY TEST HAS BEEN AOOED, THE BRANCH G088LE ROUTINE. 
THE PROGRAM MAY BE POWER FAILED WHEN RUNNING. THE PROGRAM WILL PRINT 
A MESSEUE (POWER FAILED) ANO CONTINUE IN SEQUENCE WHEN THE POWER COMES 
BACK UP. MCAUTIONM DO NOT POWER FAIL THE PROGRAM IF THE PROGRAM IS IN 
MOS MEMORY OR IF THE PROGRAM IS RELOCATED. 

LOADING AND STARING INSTRUCTIONS 
LOAD AOORESS 200 ANO START 

NOTE: PROGRAM MILL RUN WORST CASE TEST PATTERNS IN LOWEST 4K 
THUS THE PROGRAM CANNOT BE RESTARTED AT 200 IF RELOCATED. TO PREVENT 
RELOCATION FROM OCCURING DEPOSIT 200 INTO LOCATION 42 (NOT NECESSARY 
IF LOADED VIA ACT11). THIS ACTION WILL PREVENT RELOCATION AND ALSO 
INHIBIT TESTING MEMORY IN LOWEST 4K. 

THIS PROGRAM ALSO RELOCATES THE ABS AND BOOT LOADERS TO ALLOW TESTING 
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1229 

1230 

1231 

1232 

1233 

1234 

1235 

123& 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

124b 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

125& 

1257 

1258 

1259 

1260 

1251 

1262 

1253 

1284 

1285 

1288 

1267 

1288 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000000 
000001 
000002 
000003 
000004 
000005 



000001 
000002 
000004 
000010 
000020 
000340 
000200 
000000 
040000 
140000 
000000 
010000 
030000 
004000 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 
000244 
000250 



17777t 



OF MEMORY. TO RESTORE THE LOADERS RESTART AT 162. 
STACK POINTER IS SET AT 500 

AN ASTERISK '*' UILL BE PRINTED ON COMPLETION OF EACH PASS, AND 
THE PROGRAM NAME WILL BE PRINTED UHEN TEST IS COMPLETE. 

; GENERAL REGISTER ASSIGNMENTS 
RO=XO 
R1=X1 
R2=X2 
R3=%3 
RH-Y.H 
RS=v.S 
SP=X& 
PC-'/.7 
R10=X0 
R11=X1 
R12=K2 
R13='/.3 
R14=X4 
R15="/.5 



; STATUS REGISTER (PSU) 
C=l 
V=2 
2=4 
N=10 
T=20 

PRTY7=340 

PRTYH=200 

KM=000000 

SM=040000 

UM=1H0000 

PKM=0OO000 

PSM=010000 

PUM=030Q00 

REG=004000 

; VECTOR ADDRESSES 
ERRVEC=4 
RESVEC=10 
TBITVEC=14 
TRTVEC=14 

BPTVEC=14 

I0TVEC=20 

PFVEC=24 

EMTVEC=30 

TRAPVEC=34 

TKVEC=60 

TPVEC=64 

PIRVEC=240 

FPEVEC=244 

MMVEC=250 

; REGISTER ADDRESSES 
PSW= 177776 



BIT ASSIGNMENTS 
;C BIT 



7 
4 



{ADDRESS 



V BIT 
Z BIT 
N BIT 
♦r BIT 

PRIORITY LEVEL 
PRIORITY LEVEL 
KERNEL MODE 
SUPERVISORY MODE 
USER MODE 

PREVIOUS KERNEL MODE 
PREVIOUS SUPERVISORY MODE 
PREVIOUS USER MODE 
SELECT R10-R15 



ADDRESS OF ERROR VECTOR 

ADDRESS OF RESERVED INST. TRAP VECTOR 

ADDRESS OF T BIT TRAP VECTOR 

ADDRESS OF 'TRACE' TRAP VECTOR 

OF 'BREAKPOINT' TRAP VECTOR 

ADDRESS OF IOT TRAP VECTOR 

ADDRESS OF POWER FAIL TRAP VECTOR 

ADORESS OF EMT VECTOR 

ADDRESS OF TRAP VECTOR 

AOORESS OF TTY KEYBOARD INTERRUPT VECTOR 

ADDRESS OF TTY PRINTER INTERRUPT VECTOR 

ADDRESS OF PIRO VECTOR , 

ADDRESS OF FLOATING POINT INT. VECTOR 

ADDRESS OF MEM MGMT ERROR TRAP VECTOR 



; ADDRESS OF STATUS REGISTER 
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1295 
128b 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
129*4 
1295 
12% 
1297 
1298 
1299 
1300 
13C1 
1302 
1303 
1304 
1305 
1308 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
131H 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1328 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1338 
1337 
1338 



177774 
177772 
177770 
177560 
177562 
177564 
177566 
177570 
177570 



OOOSCO 



000100 
040000 
020000 
010000 
001000 
000400 
000100 

000001 
000002 
000100 

177572 
177574 
177576 
172S16 

172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 

172340 
172342 
172344 
1723% 
172350 
172352 
172354 
172356 



104400 
10400D 



030CC6 



SLR= 177774 
PIRQ=177772 
U8REAK=177770 
TKSs 177560 
TKB= 177562 
TPS= 177564 
TP8= 17756b 
SWR=177S70 
DISPLAYsl77S70 

; INITIAL STACK POINTER SETTING 
STKPTRrSOO 

MISCELLANEOUS BIT ASSIGNMENTS 



AOORESS OF STACK LIMIT REGISTER 

OF PROGRAM INTERRUPT REQUEST 

OF MICRO BREAK REGISTER 
^YMATO CSR 

FR^NrBf cIr 
TELEPRINTER BUFFER 
ADDRESS OF CONSOL SWITCH REGISTER 
ADDRESS OF CONSOL DISPLAY REGIS T EP 




llTl5= 040000 



BIT13= 

8IT12= 

BIT9= 

BIT8= 

BIT6= 



020000 
010000 
001000 
000400 
000100 



OOOOCl 



Jls000002 

; MEMORY MANAGEMENT REGISTER ADDRESS ASSIGNMENTS _ _ 

— ; AOORESS OF HEM MGMT REGISTER SRO 



SR0=177572 

mm 

SR3=172S16 

KIPDRO= 172300 
KIP0R1=1723C2 

KIP^Sl7g3lO 
KIPDRS=172312 
KIPDR8=172314 
KIPDR7=172316 

KIPAR0=172340 
KIPAfll=172342 
KIPRR2sl7£ 
KIPAR3=17" 
KlPAR4=i; 
KlPARSsi: 
KIPAR6=1723S4 
KIPAR7= 172356 



; INSTRUCTION EQUATES 
HLTsTRAP 
SCOPEsEMT 

;MISC. EQUATES 
RU-6 



AOORESS OF HEM MGMT REGISTER SR3 

; ADDRESS OF KERNEL 'I* PAGE 
; DESCRIPTOR REGISTERS 



SRI 
SR2 




; ADDRESSES 00 KERNEL T SPACE 
;PAGE AORESS REGISTERS 



; SCOPE IS AN EHT TRAP 
;R/U BI T IN POR REGISTERS 
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I3M1 

1342 

13M3 

1344 

1345 

13% 

1347 

1348 

13*9 

13S3 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

13S5 

1388 

1367 

1388 

1389 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

13% 



000000 



000000 
000002 

000004 



000034 
000038 

0000% 

000052 



000250 



000000 
000000 
000000 

001116 
000002 
000034 
001174 
000340 
0000% 
00%54 
000052 
040000 

000250 
000000 



000252 000207 



000120 
OOC122 



000120 
000000 
300000 



000124 
000130 
000132 
300134 



005737 0QC12C 

100401 

0002C7 

011557 CI 7762 



UP=0 



;UP BIT IN POR REGISTERS 



.=0 

.WORD 0 

.WORD 0 

.WORD ERRTRP 

.WORD RTI 
. =TRAPVEC 

.WORD ERROR 

.WORD PRTY7 
.=46 

.WORD LOGICAL 
=52 

IwORO BIT14 



; SPECIAL TRAP /INTERRUPT CATCHER IF PPC- 
;GRAM HALTS AT 0 THEN ADDRESS WAS NCT 
;L0AOE0 PROPERLY FROM VEC T OR. 



.=250 
EOPHLT: HALT 



RELFL: 



RTS PC 

.=120 
.WORD 



;THIS IS AN END OF PASS MALT; 
;NOT AN ERROR HALT. YOU GET HERE CM. 
;IF SW06 IS UP. PRESS CONTINUE 'C 
; RESUME THE PROGRAM. 



SAVPC2: .WORD 0 
:THE SUBROUTINE U 



WHERE IS CALLED BEFORE ANY TEST IS RUN TO SEE 
IF BRANCH GOBBLE RELOCATED THE ENTIRE FIRST FOUR K OF CORE INTO 
THE SECOND FOR K AND OIDN'T RELOCATE EVERYTHING BACK. IF THIS IS 
THE CASE THE WHERE WILL PUT THE PKOGfWH BACK INTO THE FIRST FOUR « 
AND RETURN TO THE BEGINNING OF THE TEST THE USER DESIGNATED 
BY LOADING HIS STARTING AOORESS. NOTE THST THIS ROUTINE WILL NOT 
RELOCATE THE PROGRAM IF IT HAS BEEN MOVED BY ANY OTHER SUBPROGRAM 

IN THE DZONBF AND DZOHBE VERSIONS OF THE 0-124 TEST. IF IT HAS BEEN 
RELOCATED BY THE PART OF THIS TEST WHICH WAS TAKEN FROM DDQAB. THA* 
: IS ALL THIS PROGRAM EXCEPT BRANCH GOBBLE. 
WHERE: TST 31120 
BMI If 
RTS PC 
IS: MOV (SP),SAVPC2*20000 
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1397 

m 

1400 
1401 
1402 
1403 
1404 
140S 
140b 
1407 
1408 
140% 
1410 
1411 
1412 
1413 
1414 
141S 
141b 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
142M 
1425 
142b 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
143M 
143S 
143£» 
1437 
1438 
143*3 
1440 
1441 
1442 
1443 
1444 
1445 
14% 
1447 
1448 
1449 
1450 
1451 



000140 

8881% 

000150 
000154 
OOOlbO 



0001&2 
OOOlbb 
003172 



000204 
000210 
000214 



000224 
000230 
0002 34 
000240 

000250 
000252 
0002SH 

000264 
000270 
000274 
000300 



000304 
000310 
000312 
000314 
00031b 
000320 
000322 
000324 
00032b 



000330 
000334 
00033b 
000340 
000342 
0003M4 
0003% 
000350 
000352 



0045b7 

000000 
01b71b 
005037 
000207 

0001b2 

m 

00M7b7 
000000 
01270b 
00M7b7 
000137 
01270b 
00M7b7 
000137 
01270b 
004767 
000137 
000250 
000000 

01270b 
004767 
000137 
01270b 
004767 
0001b7 



02b204 



17774b 
000120 



000500 
177732 
001732 

000500 
177714 
002304 
000500 
177700 
00%70 
000500 
177664 
006010 



000500 
177640 
006042 
000500 
177624 
012236 



012667 00001b 

0105% 

0104% 

0103% 

0102% 

0101% 

01004b 

012707 

000000 



0l2bb7 00001b 

012600 

012b01 

012602 

012603 

012604 

012605 

012707 

000000 





JSR 




-WORD 




.WORD 




NOV 




CLR 




RTS 




.=lb2 


PONE: 


NOV 




JSR 




JSR 




HALT 


PTWO: 


NOV 




JSR 




JNP 


PTHREE: 


NOV 




JSR 




JNP 


PFOUR: 


NOV 




JSR 




JNP 




.=250 




.WORD 




.WORD 


PFIVE: 


NOV 




JSR 




JNP 


PSIX: 


NOV 




JSR 




JNP 



R5.REL0C+20000 
20600 

SAVPC2,(SP) 



•500, SP ; STARTING ADDRESS TO RELOCATE LOADERS. 

PC, WHERE 

PC.SRLDR 

•500.SP ; STARTING ADDRESS OF 0-124K MEMORY EXE^CISE^. 
PC WHERE 

atSTART :G0 TO START OF TEST 

•500, SP {STARTING ADDRESS OF PROGRAM »2. 
PC.UHERE 

3«PRG2 :G0 START PROGRAM «2 

•500, SP ; START ING ADRESS OF PROGRAM »3. 
PC.WHERE 

3«PRG3 ;G0 START PROGRAM »3 



0 
0 



; MEMORY MANAGEMENT TRAP VECTOR. 



•500, SP ; START ADDRESS OF PROGRAM »4. 
PC.WHERE 
3«PRG4 

•500, SP {STARTING ADDRESS OF BRANCH GOBBLE nCS 'EE'. 

PC. WHERE 

BRANCH 



; ROUTINE TO SAVE REGISTERS ON THE STACK 
CALLED BY SAVE MACRO OR JSR 



SSAVR: 



IS: 



MOV 
MOV 
NOV 
MOV 
NOV 
MOV 
MOV 
MOV 
0 



(SP)*.1S 
•/.S,-(SP) 
X4.-CSP) 
X3 -(SP) 
72 -(SP) 
xil-(SP) 
XO.-(SP) 
(PC)*, PC 



PC.SSAVR 
iSAVE RETURN PC 



; RETURN 

I CONTAINS RETURN ADDRESS 



; ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 
CALLED BY RESTORE MACRO OR JSR PC.SRESTR 



SRESTR: 



IS: 



MOV 
MOV 
NOV 
MOV 
NOV 
NOV 
NOV 
NOV 
0 



(SP)+,1S 
(SP)+,xO 

(SP)*,X1 
(SP)* X2 
(SP)* X3 
(SP)*,X4 
(SP)*,XS 
(PC)*. PC 



;SAVE RETURN PC 



; RETURN 

{CONTAINS RETURN ADDRESS 



'EST DGGA8-A 0-124K HENORY EXERCISER 
0DGA8A.P11 POWER FAIL ROUTINE 



E04 



1453 

1454 

1455 

1458 

1457 

1458 

1459 

1460 

1%1 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

I486 

1487 

1488 

1489 

1490 

1491 

1492 

14S3 

1494 

1495 

14% 

1497 

1498 

1499 

1500 

1SC1 

1502 

1503 

1504 

1505 

1506 

1537 

• cnc 

• WwW 



000502 

000512 
000515 
000520 
000524 
000530 
000534 
000540 
000542 
000544 




OO OSS fc 
000560 
000562 
000570 



000572 
000574 
000600 
000604 
000606 
000612 
00061b 
000620 
000622 
000624 
000630 



000640 
000644 
000650 
000652 
000656 
000656 
000662 

000674 
000676 
000700 
000704 
000706 
000712 
000714 
300716 



000502 



013746 
004757 
005737 
001417 
0137% 
0137% 
012700 
012702 
010203 
0120% 
077202 
12700 
IT 
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TTL POWER FAIL ROUTINE 



010627 
000000 

012737 
000000 



000240 
013706 
005767 
001417 
012700 
012702 
010203 
012640 
077302 
012700 
012640 
077202 
012637 
012637 
005767 
001402 
004757 

004757 
012637 
012737 
005027 
000000 
005267 
100375 
00%57 
000720 
000240 
000002 



177560 
177572 
000752 

177572 
177576 
172300 
000010 



172340 



; POWER FAIL ROUTINE 
;THE POWER DOWN ROUTINE SAVE 
(RO-RS) .ANONEN NGflt REGISTl 
;0N THE STACK AND SAVES THE 



000572 000024 



000560 
000146 



PDWN: MOV 3lTKS.-(SP) 

JSR PCJSAVR 

TST StftHAVA 

BEO 3S 

NOV atSRO,-(SP) 

NOV atSR2.-(SP) 

NOV IKIPDR0,R0 

NOV 18.. R2 

NOV R2.R3 

IS: NOV (RO)+,-(SP) 

SOB R2.1S 

NOV IIUPARO.RO 

21: NOV (RO)+,-(SP) 

SOB R3.2S 

35: NOV SP.(PC)+ 

PFSTK: .WORO 0 

NOV iPUP.aiPFVEC 
HALT 



POWER UP ROUTINE. 



PUP: 



172360 
000010 



172320 



177576 
177572 
006246 

006170 

177446 
177560 

000502 000024 



177772 
00004fc 



IS: 



2S: 



4S: 



SI: 



10$: 
115: 



hi: 



NOP 
NOV 
TST 
BEQ 
NOV 
NOV 
NOV 
NOV 
SOB 
NOV 
NOV 
508 
NOV 
NOV 
TST 
BEQ 
JSR 

JSR 

NOV 

NOV 

CLR 

.WORD 

INC 

BPL 

JSR 

PWRFAIL 

NOP 

RTI 



atPFSTK.SP 

HNAVA 

4S 

•KIPAR7+2.RC 

•8..R2 

R2.R3 

CSP)+,-(RO) 
R3.1S 

•K1P0R7+2.R0 

(SP)+,-(RO) 

R2.2S 

(SP)+ f 3lSR2 
(SPH.3ISRQ 
PARAVA 
5S 

PC..NAKF 

PC.SRESTR 

(SP)+,3lTKS 

•PDWN.3IPFVEC 

(PO + 
0 

10S 
US 

RS, SPRINT 



, THE KEYBOARD STATUS . THE GENERAL REGISTERS 
*.RS (KIP0R^KIP0R7.KIPAR0-KIPAR7,SR2,SR0< 
STACK POINTER IN PFSTK BELOW. 
SAVE KEYBOARD STATUS 
GO SAVE REGISTERS ON THE STACK 
CHECK IF HEN NGMT IS AVAILABLE 
BRANCH IF NOT AVAILABLE 
SAVE SRO 
SAVE SR2 

GET ADDRESS OF KIPDRO 
;SAVE KIPDR0-KIPDR7 



;GET AOORESS Of KIPARO 
;SAVE KIPAR0-KIPAR7 

;SAVE STACK PTR IN FOLLOWING LOCATION 
CONTAINS STACK PTR AFTER POWER FAIL 
;SET POWER FAIL VECTOR TO PUP ROUTINE 



•SET STACK PTR 

! CHECK IF HEN NGNT IS AVAILABLE 
;GET ADDRESS OF KIPAR7+2 



RESTORE KIPAR7-KIPAR0 

GET AOORESS OF KIPDR7+2 
RESTORE KIPDR7-KIPDR0 

RESTORE SR2 
RESTORE SRO 

CHECK IF PARITY REGISTERS ARE ENABLED 
BRANCH IF NOT 

GO ENABLE PARITY REGISTERS 

RESTORE REGISTERS FRON STACK 

SET POWER FAIL TRAP TO PDWN ROUTINE 

; DELAY WAITING FOR TTY NOTC? 
;G0 TO PRINT ROUTINE 

: RETJRN 



TEST DDOAB-fl 0-124K MEMORY EXERCISER 
DDQABA.Pli POWER FAIL ROUTINE 



047520 042527 
040S06 046111 
005015 000 



1509 


000720 


0O5015 


1510 


00C726 


020122 


1511 


000734 


042105 


1512 






1513 






1514 
1515 
1516 


000742 


000000 


000744 


000000 


1517 
1518 


QQQ746 
000750 


5Q0000 

000000 


1519 


000752 


000000 


1520 
1521 






000754 


000000 


1522 


00075b 


000000 


1523 






1524 






152S 






1526 






1527 


000760 


**rf*>^***» ■ *N 

000240 


1528 


000762 


0125b7 


1529 


000766 


0bb7b7 


1530 


000774 


0137% 


1531 
1532 


C01004 


oooooo 


1533 


001006 


000205 


1534 






1535 






1536 






1537 






1538 






1539 






i540 






1541 


001010 


000 


1542 


001011 




1543 


001012 


000 


1544 






1545 


001013 


OCX} 


15% 


001014 


177584 


1547 


001016 


1775bb 


1548 


001020 


0100% 


1549 


• ****** 

001022 


017800 


1550 


00102b 


082768 


1551 






1552 


001034 


1120% 


1553 


001038 


001003 


1554 


001040 


005728 


1555 


001042 


012800 


lbbb 


no i rum 


UUUUUc 


1557 

isse 






0010% 


00476 7 


1559 


0010S2 


122726 


1560 


001056 


001366 


1561 


00106C 


016746 


1562 














:oi:6- 


1C5366 



000016 
177762 
177776 
000014 



000010 



000002 
000C02 



0C00C2 



000026 
000012 

177724 



0C00C1 



F04 

MACY11 27(732) 10-SEP-76 10:35 PAGE 44 
PWRFAIL:.ASCIZ < 1S>< 12> 'POWER FAILED' < 15>< 12> 



. SBTTL TAGS & PRINT ROUTINE 



ICNT: 

IC0UNT: 

ERCNT: 

LDDISP: 

NNAVA: 



.EVEN 
.WORD 
.WORD 
0 
0 
0 



RELOCF: .WORD 
COUNT: .WORD 



0 
C 



0 
0 



:C0NTAINS PASS COUNT 
CONTAINS ITERATION PATTERN 
CONTAINS ERROR COUNT 
CONTAINS DISPLAY REGISTER IMAGE 
NEN NGMT AVAILABLE INDICATOR 
OsNOT AVAIL, -1=AVAIL 
CONTAINS RELOCATION FACTOR 
TEMPORARY WORKING L0ACATI0N 



{ROUTINE TO PASS MESSAGE ADDRESS TO TYPE ROUTINE BELOW 



•CALL: JSR 



RS, SPRINT 



MESSAGE A0&RESS 
•PRINT: NOP 



IS: 



MOV 
ADO 
MOV 
JSR 
.WORD 
RTS 



(RSH.1S 
RELOCF, IS 

atpsw.-csp) 

PC.. TYPE 

0 

RS 



GET MESSAGE AOORESS 
AOO RELOCATION FACTOR 
PUSH PSW ON THE STACK 



CONTMNS^HE 
RETURN 



BSBF- 



AOORESS 



{ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
• CALL * TYPE 

I MESADR jHESAOR IS FIRST AOORESS OF ASCIZ STRING 



:TAGS 
INULL: 
SFILL: 
STPFLG: 



USED BY 
.BYTE 
.BYTE 
.BYTE 



THE 

0 
2 
0 



STKFLG: 

STPS: 

STPB: 

.TYPE: 



IS: 



2S: 
3$: 



4$: 



.BYTE 

.WORD 

.WORD 

MOV 

MOV 

ADO 

HOVB 

BNE 

TST 

MOV 

RTI 

JSR 

CMPB 

BNE 

MOV 



DECB 



0 

177564 
177566 
RO.-CSP) 
32(SP).R0 
t2,2(SP) 

(R0)*,-(SP> 
2S 

csp)+ 

(SP)+,R0 



PC.SS 

•12,(SP)+ 

IS 

SNULL,-(SPJ 



TYPE ROUTINE BELOW 

CONTAINS NULL CHARACTER 
CONTAINS • OF FILLER CHARACTERS 
CONTAINS TELEPRINTER AVAILABLE FLAG 
0/377 s AVAIL/NOT AVAIL 
CONTAINS KEYBOARD AVAILABLE FLAG 
' — " - ■ TER 



AOORESS OF TLEPRINTER STATUS REGIS 
AOORESS OF TELEPRINTER DATA BUFFEF 



SAVE RO 



AOJUS^ S R£TURNPC 



AOORESS 



KSP) 



PUSH CHARACTER TO BE TYPED ONTO STACK 
BRANCH IF NOT THE TERMINATOR 
POP TERMINATOR CHAR OFF THE STACK 
RESTORE RO 
RETURN TO CALLER 

TYPE CHARACTER 

CHECK IF CHARACTER WAS A LINE FEED 

BRANCH IF NOT LINE FEED 

GET • OF FILLERS REQUIRED AND FI^ER 

CHARACTER. 

; DECREMENT FILLERS REO. CGJT 



*ES* D0QA8-A 0-1 24k MEMORY EXERCISER 
:C3ABA.P11 *PGS S PR IT ROJTINE 



1565 

1566 

1567 

156B 
15BS 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
158M 
1585 
1586 
1587 
1588 
1583 
1590 
1531 
15S2 
1593 
1594 
1595 
15% 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1517 
1618 

ie:<5 

1520 



001070 002770 

001072 004767 000002 

001076 000772 

M 177710 

001106 116677 000002 

001114 000207 



001116 
001122 
001124 
001126 
001130 
001132 
001134 
001140 
001142 
001146 
001152 
00115H 
001160 
001162 

001164 
001170 



001174 
001176 
001204 
001206 
001214 
001222 
001224 
001232 
001240 
0012% 
001252 
001256 
001260 
001264 
001272 
001274 
001300 
001304 
001306 
X1312 
001314 
001320 
001324 
001330 



00S737 
100001 
000000 
005727 
000000 
001013 
010667 
011602 
004767 
004567 
0014% 
004567 
002271 
000000 

005067 
000137 



000240 
022767 
001403 
062767 
032737 
001411 
042767 
056767 
016737 
004767 
016602 
010201 
162701 
032737 
001044 
004767 
00%67 
001463 
004567 
002271 
016602 
004767 
004567 
002247 



000001 
001000 

017777 
177510 
177504 
177032 
000014 

000002 
020000 

000220 
177454 

177446 

000004 
000174 
177430 



MACY11 27 i 732) 



BIT 
JSR 
BR 



G04 
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5$: 



177702 



TSTB 
9PL 
MOVB 
RTS 



3$ 

PC, 5$ 
4$ 

3STPS 

.-4 

2(SP),3STPB 
PC 



; BRANCH IF NO MORE FILLERS ARE REQUIRED 
•TYPE FILLER CHARACTER 



;WAIT FOR OUTPUT DEVICE 
; OUTPUT CHARACTER 



177570 



177770 

000352 
177606 

177600 



177740 
000200 



017777 177542 



;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
i ERROR TRAP SERVICE ROUTINE 



ERRTRP: 



II: 



25: 



TST 
BPL 
HALT 
TST 
.WORD 
BNE 
MOV 
MOV 
JSR 
JSR 
TRAP4 
JSR 

DIGITS 
HALT 

CLR 
JMP 



StSUR 

.+4 

(PC)+ 
0 

2S 

SP.1S 
(SPJ.R2 
PC.SFORMO 
R5, SPRINT 

R5, SPRINT 



IS 

31200 



CHECK IF HALT ON ERROR 
BRANCH IF NO HALT ON ERROR 
HALT 

CHECK IF PREV TRAP TO 4 REPORTED 

CONTAINS ERROR REPORTED FLAG 

BRANCH IF NOT REPORTED 

SET 'NOT REPORTED' 

GET PC OFF STACK 

GO TO FORMAT ROUTINE 

GO TO PRINT ROUTINE 

GO TO PRINT ROUTINE 

ERROR! SECOND TRAP TO 4 OCCURRED 
BEFORE FIRST MAS PRINTED 

RESTART AT 200 



.SBTTL 
; ERROR SERVICE 
;0R HLT (A TRAP 



177532 
177570 

177516 
177510 
177570 



177570 



ERROR: 



4S: 



5S: 



NOP 
CMP 
BEQ 
ADD 
BIT 
BEQ 
BIC 
BIS 
MOV 
JSR 
MOV 
MOV 
SUB 
BIT 
BNE 
JSR 
JSR 
ERRPC 
JSR 

DIGITS 
MOV 
JSR 
JSR 

ADPESS 



ERROR SERVICE ROUTINE 
CALLED BY JSR PC, ERROR INSTRUCTION 
INST) 



•17777, ERCNT 
4S 

•1. ERCNT 
l6iT9,3lSUR 
5S 

•17777, LDDISP 
ERCNT.LDOISP 
LDDISP, 3»DISPLAY 
PC.SSAVR 
14tSP),R2 
R2.R1 



0)000, 



•21 
IS 

PC.SFORMO 
RS, SPRINT 

R5, SPRINT 
4(SP).R2 

pc,sf6rmo 

R5, SPRINT 



3*SWR 



; CHECK FOR MAX ERROR CNT 

; INCREMENT ERROR COUNT 
jSWITCH 9 UP' 

;SAVE RELOCATION BITS 

-.LOAD ERROR COUNT 

;L0AQ DISPLAY REGISTER 
;SAVE REGISTERS ON THE S'AC* 
: GET PC OF ERROR CAL. 

; PRINT OUT DESIRED' 
:BRANCH IF NO PRINTOUT 
;G0 TO FORMAT ROUTINE 
•GO TO PRINT ROUTINE 

;G0 TO PRINT ROUTINE 

;GET FAILING ADDRESS i IN Rc^ 
GO TO FORMAT ROUTINE 
;G0 TO PRINT ROUTINE 



T EST OCGAB-A Q-124K MEMORY EXERCISER HACYU 27(732) 
DDQABA.Pll ERROR SERVICE ROUTINE 



ib2l 


001332 
00133b 


1057b7 
001017 


OftftOf P~ 

005265 






TSTB 


1&22 








BNE 


ife23 


f\A a | ft 

001340 


105767 


005256 






TP*TO 

TSTB 


1&24 


001344 


Oft ■ ftftf 

001006 








BNE 


1625 


0013% 


004567 


177406 






Tpn 

J5R 


1826 


AM | **f*>ft 

001352 


Oft I 1 If o 

Ml 467 








XHTDflT 


1627 


oft i "vr* 1 1 

001354 


n a ofti j r 

010046 










1628 


001356 


Oftj i or O 

004767 


nnnor n 

000360 




! fttt . 

105: 


J5R 


162S 


ftft f *v 

001362 










1630 


ftft 1 Of o 

001362 


Aftnrr o 

004567 


1773/2 






TPQ 

J5R 


1631 
♦ r oo 
1632 


oft • o»r r 

001366 


no a pm 

001502 








RE CURT 


n/t ■ "t*ift 

001370 


ft • ooiir 

010346 








uftu 

H0V 


i r oo 

IE* 33 


Aft ■ 0*»0 

001372 


004767 


ftftftOUU 

000344 






tPQ 

J5R 


♦ r oi i 

±634 


oft i ^*if 
001376 








tiff. 
115: 




1635 


001376 


«vv ir~f o 

004567 


« 7**APf 

177356 






J5R 


1636 


001402 


n • r* • oo 

015122 








5CRLF 


1637 


001404 


032737 


ftftOOftft 

002000 


17/- 570 


IS: 


O T T 

BIT 


i e Oft 

1638 


Oft flit") 

001412 


no i lino 

001403 








OPA 

BEQ 


t r oo 
163S 


Aft t 11 1 II 

001414 


Aftupr o 

004567 


fl OOOLlft 

177340 






JbR 


t f lift 
1640 


Aft fl ||AA 

001420 


no i p* i p 

001515 








BELL 


1641 


ftft 1 1 1 OO 

001422 


005737 


177570 




Off 

25: 


TPT 

T5T 


! f LiO 

1642 


001426 


fl ftftftft | 

100001 








DDI 

BPL 


1643 


001430 


nooooo 

000000 








HALT 


1644 


ftft • 1 1 *|A 

001432 


004767 


1 or r "to 

176672 






JSR 


1645 


001436 


ft « ftftjiO 

010042 






3$: 


MAW 

nOV 


16% 


Aft till 1ft 

001440 


ft** o— »oo 

062702 


ftftftftft 0 
000002 






AHA 

HDD 


1647 


Aft ■ If t|t| 

□01444 


AftftAAA 

000002 








DTT 


1648 














f f Lift 

1649 


no a i inr 

0014% 


051124 


ApA fl ft f 

050101 


ftu or* oo 

042520 


TRRP4: 


Acr» T T 
. R5CII 


t r r*n 

1650 


001454 


non « mi 

020104 


ftl | —if Oil 

047524 


ft O Oft Lift 

□32040 






1651 


0C1462 


oi i ft 
040 








.ASCIZ 


1652 


no i Lit o 

001463 


* oo 

120 


ftftf t— oo 
036503 


ftftft 
000 


ERRPC: 


1653 


no 1 1 if o 

001%7 


< ft*? 
107 


047517 


ft 00 1 njj 

□20104 


XMTDAT: 


.ASCIZ 


1654 


no < ufu 

001474 


fM IftTftl 1 

040504 


□40524 


nooo*?rr 
□00075 






1655 


no i pn* 

□01502 


ftu < n<i ft 

041040 


ftti 0 1 n • 
□42101 


fttl Oftllft 

042040 


RECDAT: 


.ASCIZ 


1656 


no a r* < ft 

001510 


ft#* O fl ft fl 

052101 


nv r»ft ■ 

036501 


ftftri 
000 




.ASCIZ 


1657 


no trip 

□01515 


ft/n 
□07 


ftftft 
000 




BELL: 


f P PC 

1658 




no • poo 

□01520 








.EVEN 


i r pn 

1659 










: ROUTINE TO PL! 


if r ft 

IbbO 


no i coo 

001520 


□bb/b7 


177230 


ftftftft 1 11 


5F0RN0: ADO 


iff i 
1661 


no i pftt 

001526 


ftf f ^f «» 

066767 


fl 

177222 


ftftft 1 "5LJ 

000134 




ROD 


1662 


no i pTu 

001534 


ftfti i— »f 

UJ4767 


fl ^f. P*LiLi 

176544 






JSR 


1663 


no a mo 

KJ1540 


ft • *>*»m t 

012704 


002271 




11$: 


NOV 


i r_ t u 

1664 


no a p*iiii 

□01544 


ftftf-ftftft 

□05003 








CLR 


t f t r 


no i Ptif 

□015% 


fl P OOftO 

162702 


ftftftftftO 






SUB 


Ibbb 


001SS2 


010205 








NOV 


1S67 


001554 


010501 








NOV 


IDOO 


UU1DDO 




If r If U 






TST 


lbb9 


0015b2 


00142b 








BEQ 


lb70 


0015b4 


032737 


000001 


177572 




BIT 


1€»71 


001572 


001422 








BEQ 


lb72 


001574 


042701 


017777 






BIC 


lb73 


OOlbOO 


000301 








SWAB 


lfc74 

1E7S 
lb7b 


001b02 
001b04 
301b0b 


OObOOl 
OObOOl 
QObODl 








ROR 
ROR 
RGP 



H04 
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PENFLG 
IIS 
PEFLG 
10S 

RS, SPRINT 

R0,-(SP) 
PC,02A 

RS, SPRINT 

R3,-(SP) 
PC.02A 

RS, SPRINT 

t2000,atSUR 
2S 

RS, SPRINT 

StSUR 

.♦4 

PC.SRESTR 

R0,-(R2) 

•2.R2 



; BRANCH IF PARITY ERROR DETECTED 
;BUT NOT FOUND 

; BRANCH IF PARITY ERROR DETECTED 
;BUT FOUND 

;G0 TO PRINT ROUTINE 

;PUSH VALUE TO TYPED ONTO STAC* 
;G0 PRINT VALUF 

;G0 TO PRINT ROUTINE 

;PUSH VALUE TO BE TYPED CNTC S t ACk 

GO TO PRINT ROUTINE 
RING BELL ON ERROR 
GO TO PRINT ROUTINE 
HALT AFTER PRINT OUT 



; RESTORE REGISTERS FR0N STACK 
; RESTORE CORRECT DATA TO ADDRESS 



' TRAPPED T 0 4 " 



•PCs' 

'GOOD DATA=* 
* BAD DATA=" 
<7> 

CE ASCII VALUE 
REL0CF, 11S+2 
RELXF. 415*2 
PC.SSAVR 
•DIGITS, R4 
R3 

•2.R2 
R2.RS 
RS.R1 
NNAVA 
IS 

il,3«SR0 
IS 

•17777, Rl 

Rl 

Rl 

Rl 

PI 



OF AN ADDRESS IN TO ADDRESS NESSAGE 



;^0 SAVE REGISTERS ON THE STACK 
ADDRESS WHERE ASCII VALUES ARE STORED 
; WORKING & INDEX REGISTER 
: ADJUST A0DRESS 
:SAVE 

; CHECK IF NEN NGNT IS AVAILABLE 
; BRANCH IF NOT AVAILABLE 
;IS NEN NGNT ENABLED 

;SAVE PAR SELECTOR BITS 
;SWAP BYTES 

;F0RN INDEX VALUE 



TEST DDGAB-A C-124K MEMORY EXERCISER 
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b77 
fa78 



b81 
682 
683 
684 
885 
686 
687 
688 
1688 
1680 
1681 
1682 
1683 
168H 
168S 
16% 
1687 
1688 
1688 
1700 
1701 
1702 
1703 
1704 
170S 
1706 
1707 
1708 
1708 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1718 
1720 
1721 
1722 
1723 
172M 
172S 
1726 
1727 
1728 
1728 
1730 
1731 
1732 



001610 
001612 

m 

001624 
001626 
001630 
00163M 
001636 
001640 
001642 
001644 
001650 
001652 
001654 
001656 
001660 



88 



1 

001672 
001674 
001676 
001700 
001704 
001712 
001720 

001722 
001724 
001726 
001730 
001732 
001734 
001736 
001740 



001742 
001742 
0017% 
001752 
001756 
001760 
001762 
001764 
001770 
001774 
002000 
002002 
002004 
002006 
002010 
002012 
002014 



006001 
017102 

m 

OC6103 
077003 
042705 
060502 
005503 
006302 
006103 
012700 
000404 
006302 
006103 
005305 
001374 
0127C 
llf 
005003 
005300 
001365 
004767 
046767 
0%767 
000207 

172340 
172342 
172344 
1723% 
172350 
172352 
172354 
172356 



004767 
016600 
012703 
005002 
006100 
006102 



U 

004567 
002034 
005002 
006100 
006102 
006100 
006102 
006 ICO 



001722 
000006 



160000 



000006 



000003 
002232 



176424 

177044 177630 
177036 177750 



ROR 
MOV 
MOV 
ASL 
ROL 
SOB 
BIC 
POO 
ADC 

.5: ASL 
ROL 
MOV 
BR 

25: ASL 
ROL 
DEC 
BNE 

3$: MOV 
41$: MOVB 
CLR 
DEC 
BNE 
JSR 
BIC 
BIC 
RTS 

PARTAB: KIPARO 
KIPAR1 
KIPAR2 
KIPAR3 
KIPAR4 
K I PARS 
KIPAR6 
KIPAR7 



Rl 

2PARTAB ( 1 ) , R2 
jg.RO 

R3 

R0..-4 

1160000, R5 

RS,R2 

R3 

R2 

R3 

•6.R0 

3$ 

R2 

R3 

RS 

21 

•3.R5 

DI&TAB(3),(4)4 

R3 

RO 

2$ 

pc.srestr 
reCocf,h$+2 

REL0CF,4U*2 
PC 



GET CONTENTS OF PAP 



SHIFT COUNT 
sHIFT Klfc 



AR1 6 PLACES LEF 1 
2 MSB'S GO INTO R3 

CLEAR PAR SELECTOR BI T S 
FORM 18 BIT ADDRESS 
IN R2 & R3 
FIRST DIGIT TO R3 

DIGIT COUNT 
PRINT FIRST DIGIT 



: DIGIT SHIFT COUNT 
;LOAD DIGIT INTO MESSAGE 
; CLEAR INDEX 
•DEC DIGIT COUNT 

; RESTORE REGISTERS r ROM S'fiCr. 



: RETURN 



176336 
000016 
000006 



000260 
000040 
176760 



&2A: 



ROUTINE TO TYPE OCTAL VALUE 

CALL: MOV VALUE. -(SP) 

JSR PC,02A 

JSR PC.SSAVR 

MOV 16(SP),R0 

MOV 16, R3 

CLR R2 

ROL RO 

ROL R2 

1$: ADD I260.RS 

MOV R2,2* 

JSR R5, SPRINT 
2$ 

CLR R2 

ROL RO 

ROL R2 

ROL RO 

ROL R2 

ROL RO 



PUSHED ONTO STACK 

;PUSH VALUE ONTO STACK 
;CALL ROUTINE 

:G0 SAVE REGISTERS ON THE STACK 
;GET VALUE 
COUNTER 

•WORKING REGISTER 

;FORM ASCII VALUE 
MOVE CHAR TO TYPE LOCATION 
:G0 TO PRINT ROUTINE 



TEST ODGAB-A 0-1 24K MEMORY EXERCISER 
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1733 
1734 
173S 

m 

1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 

1754 
1755 
1756 
1757 
1758 
1759 
17b0 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 



002016 
002020 
002022 



002032 
002034 

002036 

002040 
002044 
0020% 
002050 
002054 
002062 
002064 
002066 
002070 



>100 
002104 



0021 
0021 

Rgi 

002122 
002126 



006102 
005303 
001360 
004767 
012616 
000207 



005767 
001401 
000207 
012700 
012737 
005720 
000776 
022626 
162700 

\m 

012703 
012023 
005302 



8 



m 

005367 
000207 



002130 005767 

002134 001001 

002136 000207 

002140 016705 



002144 

Big 

002156 
002160 
002162 
002164 
002166 
002172 
002174 
002200 



012704 
012702 
012425 
005302 
001375 
012745 
000000 
004567 
002204 
005067 
000207 



002202 000000 



002204 
002212 
002220 
002226 



047514 
044440 
052123 
005015 
002232 



176300 



2S: 



ROL 
DEC 
BNE 
JSR 
MOV 
RTS 
.WORD 



R2 
R3 
IS 

PC.SRESTR 

(§>)♦, (SP) 

PC 

0 



177772 



017776 

002066 000004 



002202 
000102 
001100 
015556 



000042 
177710 



1777Q2 



000036 

015556 
001100 



176566 
177636 



042101 051105 

020123 042522 

051117 042105 
000 



LODFLO: .WORD 0 
[ ROUTINE TO SAVE ABS LOADER 
LODFLO 



SLDR: 



3$: 



2S: 



IS: 



TST 
8EQ 
RTS 
MOV 
MOV 
TST 
BR 
CMP 
SUB 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
DEC 
RTS 



3S 

PC 

•17776.R0 
•2S.SMERRVEC 

(ROW 
.-2 

(SP)+,(SP)+ 
•2202.R0 

•L0DAR.R3 

(R0)+,(R3)+ 

R2 

IS 

-(R3KLSTL0C 

L0DFL6 

PC 



ROUTINE TO RESTORE LOADER 



Jrldr 



2S: 



TST 
BNE 
RTS 
MOV 



MOV 
MOV 

IS: MOV 
DEC 
BNE 
MOV 

LSTLOC: .WORD 
JSR 
SLDRM 
CLR 
RTS 



LODFLO 
2S 
PC 

5L0R1.R5 

•L0DAR.R4 

•1100, te 

(R4)+,(R5)+ 

R2 

IS 

(PC)+,-(R5) 
0 

R5, SPRINT 

LODFLO 
PC 



302232 Q3046D 



SL0R1: .WORD 0 
SLDRM: .ASCI 2 



.EVEN 
:0IGIT TABLE 
fclGTAB: "01 



; RESTORE REGISTERS FROM STACK 
•.CONTAINS CHARACTER TO BE TYPED 



;SET TIME OUT TRAP VECTOR 



; POINT RO BACK TO LOAOER 
;SAVE FOR RESTORE ROUTINE 
;WOR0 COUNT 

; WHERE LOADER IS TO BE STORED 
; STORE LOADER 

;SAVE LAST WORD OF LOADERS 
; RETURN 



;GET FIRST ADDRESS OF WHERE ^OADFP I 
;T0 BE RESTORED 

•.ADDRESS WHERE LOADER IS STORED 
;WORD COUNT 
RESTORE 



; RESTORE LAST LOCATION i SAVED B> ShV 
; LOADERS ROUTINE ABOVE ) 
•GO TO PRINT ROUTINE 

; RETURN TO CALLER 



; FIRST ADDRESS WHERE LOADERS ARE"0 3 
•RESTORED TO 
LOADER IS RESTORED' <15><12> 



TEST 0DQA8-A 0-124K MEMORY EXERCISER 
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1789 
1790 
1791 
1792 
1793 
1794 

m 

1797 
1798 
1799 
1800 

* or i 



002234 031462 
0022% 032464 
002240 033466 



040 
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"23 
"45 
•67 



002242 040514 052123 

<7 115 Q4650S 05 

54 020131 042101 OS 

002262 051505 020123 OS 

002270 040 

002271 060 030060 030060 DIGITS 
002276 020060 000 

002302 



SSPGES 



117 ADRESS: 
104 
Sll 



.ASCII 
.ASCII 



.ASCIZ 
. EVEN 
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'LAST ' 

' MEMORY ADDRESS IS 

•oooooo • 



1 TEST DOQAB-A 0-124K MEMORY EXERCISER 
DDQABA.P11 ERROR SERVICE ROUTINE 



L04 



,802 
.803 
804 
80S 

» 

808 
808 
810 
1811 
1812 
1813 
1814 
1815 
181b 
1817 
1818 
1818 
1820 
1821 
1822 
1823 
1824 
182S 
1826 
1827 
1828 
1828 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1838 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1848 
18S0 
1851 
1852 
1853 
1854 
185S 
1856 
1857 



002302 000000 



002304 
002312 
002316 
002322 
0023 26 
002330 
002334 
002340 
0023% 
002352 
002356 
002362 
002364 
002370 
002374 
002402 



002406 
002412 
002420 
002422 
002430 
002434 
002440 



002444 
002452 
002454 
002460 
002466 
002472 
002474 
002476 
002502 



012737 
012706 
004767 
004567 
012054 
005037 
005037 
013737 
012706 
005037 
012727 
000000 
005037 
005037 
012737 
005037 



005067 
032737 
001007 
012737 
005037 
005167 
004767 



012737 
010701 
004767 
012737 
012702 
010203 
010322 
062703 
000774 



002346 
000500 
177516 
176432 

000746 
000750 
000750 
000500 
006622 
0023% 

000742 
000754 
000502 
000026 



176340 
010000 

002440 
177572 
176312 
004402 



002504 

004466 
007244 
020000 



000002 



177S70 



000024 

177570 
000004 



MACY11 27(732) 10-SEP-76 10:35 PAGE SO 



PLACE: .WORD 0 

. SBTTL MEMORY AODRESS TESTS 



ADDRESS THE VALUE OF THAT ADDRESS AND THEN CHECKS FOR THE CORRECT 
DATA IN EACH ADDRESS 

THE TWELVE MOST SIGNIFICANT BITS OF THE LAST AVAILABLE MEMORY ADDRESS 
IS STORED IN.RS, 



; INTRUSIONS 
.OAO ADDRESS?, 
»RESS START 



: ncnun 
000212 START: 



STARTING 

PRESS 

STACK POINTER 
*#**t****#***RE5TART 
MEMORY ADDRESS TEST 
MOV 
MOV 
JSR 
JSR 

RESLDR 
CLR 
CLR 
MOV 
MOV 
CLR 
MOV 

PERSTRT: .WORD 
CLR 
CLR 
MOV 
CLR 



5=200 



IS 
AT 



AT 500 

162 TO RESTORE LOADER******************* 



•START1, 31212 
iSTKPTR.SP 
PC.ILDR 
R5 SPRINT 



; CHANGE START AODRESS 

;SET UP STACK PTR 
GO SAVE MONITOR & LOADERS 
GO TO PRINT ROUTINE 



START 1: 



atERCNT ; CLEAR ERROR COUNT 

atLOOISP :CLEAR DISPLAY REGISTER STORAGE LOCN 

atLDDISP.SlOISPLAY : CLEAR DISPLAY REGISTER 
•STKPTR,SP ;SET STACK PTR 

atPEFLG CLEAR PARITY ERROR INDICATORS 

LOAD PARITY ERROR RESTART ADDRESS 
CONTAINS RESTART ADORESS AFTER PAR ERP 
CLEAR PASS COUNT 
CLEAR RELOACATION FACTOR 
SET POWER FAIL TRAP VECTOR 



•START1,(PC)+ 
0 

3IICNT 
atRELOCF 
•POWN.aiPFVEC 
atPFVEC+2 



; CHECK IF MEMORY MANAGEMENT IS AVAILABLE 



IS: 



CLR MMAVA 

BIT tBIT12,atSUR 

BNE IS 

MOV HS.atERRVEC 

CLR StSRO 

COM MMAVA 

JSR PC..MAMF 



; CLEAR MEM MGMT AVAILABLE INDICATOR 
; CHECK IF TO RUN WITH MEM MGMT 
DO NOT USE HEM MGMT IF SW12 WAS SET 
SET TIME OUT TRAP 
REFERENCE MEM MGMT 
SET INDICATOR TO -1 IF AVAILABLE 
GO ENABLE PARITY ACTION 



000004 
0002S0 



; ROUTINE TO WRITE VALUE OF MEMORY 
FOR EXAMPLE ROUTINE WRITES 20000 



002504 012706 000500 



WRTUP: MOV lD0NE0,3lERRVEC 

MOV PC.R1 

JSR PC.LDMMO 

MOV iHMABTO.aiMMVEC 

MOV 120000, R2 

MOV R2,R3 

MOV R3,(R2)+ 

ADD 12. R3 

BP .-6 

DONEO: MOV lSTKPTR,SP 



ADORESS INTO MEMORY ADDRESS 
INTO LOCATION 20000 



SET TIME OUT TRAP VECTOR 
LOAD TRACE REGISTER 

SET MEM MGMT ABORT VECTOR 
FIRST ADDRESS 
LOAD CONSTANT 

WRITE VALUE OF ADDRESS INTO ADDRESS 
NEXT VALUE 
WRITE UNTIL DONE 

;SET STACK PTR 



TEST DDQAB-A 0-124K MEMORY EXERCISER 
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858 002510 
4 




862 
863 
884 

885 002530 
888 002532 

887 002538 

888 002544 

889 0025% 

870 002552 

871 002558 
872 
873 

874 002588 

875 002570 
876 

877 
878 
879 
880 
881 
882 

883 002572 

884 002574 

885 002800 
888 

887 
888 
889 

890 002802 

891 002808 

892 002810 

893 002814 

894 002816 

895 002620 
8% 002622 

897 002624 

898 002626 

899 002630 

900 002632 

901 002636 

902 002640 

903 0026% 

904 002650 

905 002654 
908 002658 

907 002660 

908 002664 

909 002666 

910 002670 

911 002674 
912 

913 



004767 177004 
4567 176240 
42 

004567 176232 
015122 



010701 

012702 020000 
012737 002574 000004 
010200 

162700 000002 

004767 004370 

062700 000002 

012203 

020003 

001773 

104400 



JSR 
JSR 
LST 
JSR 
SCRLF 



PC.SFORMO ;G0 TO FORMAT ROUTINE 

RS, SPRINT ; GO TO PRINT ROUTINE 

R5, SPRINT ;G0 TO PRINT ROUTINE 



; ROUTINE TO CHECK THAT VALUE OF MEMORY ADORESS WAS WRITTEN CORRECTLY 

MOV PC.R1 ;LOAD TRACE REGISTER 

MOV 126000, R2 SET R2 

MOV ID0NE1 3IERRVEC SET TIME OUT TRAP 

MOV R2,R0 

SUB 12, RO ; SUBTRACT 2 

JSR PC, LDMMO 

IS: ADD 12. RO 

MOV (R2)+,R3 ;GET WRITTEN VALUE 

CMP R0,R3 CHECK 

BEQ IS 

HLT : ERROR! TO DETERMINE WHICH AODRESS WAS 
; WRITTEN IMPROPERLY EXAMINE R2. NEXT EXAMINE MEM MCMT REGISTER KIPAR1 

;(IF MEM MGMT IS AVAILABLE). ADD R2 AND KIPAR1 TOGETHER AS SHOWN BELOW 



R2-2 

KIPARK 772342) 
AODRESS 



0 OOX XXX XXX XXX XXX 
0 000 YYY YYY YYY YYY 

ZZZ ZZZ ZZZ ZZZ ZZZ ZZZ 



000771 

012706 000500 
010701 



005767 176144 
001420 

013703 172342 

006303 

006303 

006303 

006303 

006303 

006303 

010246 

042716 020000 
062603 

012737 007276 000250 
000403 

162702 000002 

010203 

005103 

062703 000002 

010342 

102403 

020227 017776 
001371 



00NE1: 



BR 

MOV 

MOV 



IS 

•STKPTR,SP 
PC,R1 



;SET STACK PTR 
;LOAO TRACE REGISTER 



; ROUTINE TO WRITE l'S COMPLEMENT VALUE OF ADORESS INTO AODRESS 
•FOR EXAMPLE ROUTINE WRITES 157777 INTO AODRESS 20000 





TST 




BEG 




MOV 




ASL 




ASL 




ASL 




ASL 




ASL 




ASL 




MOV 




BIC 




ADD 




MOV 




BR 


3$: 


SUB 




MOV 


2S: 


COM 


IS: 


ADD 




MOV 




BVS 




CMP 




BNE 



HMAVA 
3S 

9tKIPARl,R3 

R3 

R3 

R3 

R3 

R3 

R3 

R2.-(SP) 
•26000. (SP) 
(SP)+ R3 
•MMABtl,3lMMVEC 
2S 

12, R2 
R2.R3 
R3 

•2,R3 

X3,-(R2) 
D0NE3 
R2, 117776 
IS 



; MEMORY MAGNAGEMENT AVAILABLE' 

;FIND LAST ADDRESS IF MEM MANAGE USED 



DEVELOP COMPLEMENT OF LAST ADDRESS 

SAVE BITS IF MEMORY IS NOT A MULTIPLE OF 4K 

SET ABORT VECTOR 

R2=LAST ADDRESS 

COMPLEMENT VALUE IN R3 

WRITE COMPLIMENT VALUE INTO ADORESS 



;SET UP TO CHECK COMPLEMENT DATA WRITTEN OOWN 



N04 



T EST DDQAB-A 0-12"K MEMORY EXERCISER 
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1914 
1915 
191b 
1917 
191B 
1919 
1920 
1921 
1922 
1923 
192H 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
193M 
1935 
193b 
1937 
1938 
1939 
1940 
19H1 
1942 
1943 
1944 
1945 
194b 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
195b 
1957 
1958 
19S9 
19b0 
19bl 
19b2 
19b3 
19b4 
1%5 
19bb 
1%7 
1%8 
1969 



00257b 
002700 
002702 

m 

00271b 
002724 
002732 
00273b 
002740 
002742 
0027% 
002752 
002754 
00275b 
002750 
002752 
0027b4 



0027bb 
002774 
00277b 
003002 
003010 
003014 
00301b 
003020 
003024 
00302b 
003030 
003032 



000240 
010701 
005757 

m 

012737 
012737 
012702 
010200 
005100 
0b2700 
lb2700 
012203 
020003 
001773 
104400 
000771 
000240 



012737 
010701 
0047b7 
012737 
012702 
005000 
005200 
012704 
010022 
005304 
001375 
000771 



175044 

000200 
007244 
0027b4 
020000 



000002 
000002 



172342 
000250 
000004 



D0NE3: 



IS: 



2$: 



D0NE4: 



NOP 

MOV 

TST 

BEQ 

MOV 

MOV 

MOV 

MOV 

MOV 

COM 

ADD 

SUB 

MOV 

CMP 

BEQ 

HLT 

BR 

NOP 



PC.R1 

mmava 

»1oO.S»KIPAR1 

•MMflBTO.aiMMVEC 

»D0NE4,s»ERRVEC 

•20000 R2 

R2.R0 

RO 

•2,R0 

•2lR0 

(R2)+,R3 

R0.R3 

2$ 

2S 



;LOAD TRACE REGISTER 
; CHECK IF MM IS AVAIL 

;INIT KIPAR1 
•SET ABORT VECTOR 

; FIRST AODRESS 

;FIRST DATA (COM OF AODRESS) 

;GET VALUE 
; CHECK 



003034 

004144 
007244 
020000 



010000 



000004 
000250 



; ROUTINE TO 
MOV 
MOV 
JSR 
MOV 
MOV 
CLR 
INC 
MOV 
MOV 
DEC 
3NE 
BR 



WRITE BANK • INTO ALL ADDRESSES IN A 4K BANK 
•D0NE4A , SlERRVEC ; SET TIME OUT TRAP VECTOR 
PC.Rl 



IS: 
2S: 



PC.LDW10 
•MMABTO.SiMMVEC 
•20000, R2 
RO 
RO 

•4096. ,R4 

R0,(R2)+ 

R4 

2S 

IS 



;R0 WILL BE DATA WRITTEN 
SET 4K COUNTER 

WRITE BANK • INTO ALL ADDRESSES 



003034 02252b 



00303b 012737 

003044 010701 

00304b 0OM767 

003052 012702 

00305b 005000 

003050 005200 

003052 012704 

00305b 012203 

003070 020003 

003072 001401 

003074 104400 

00307b 005304 

003100 001372 

003102 000766 

003104 022626 



003106 010701 

003110 012737 007276 



D0NE4A: CMP 



(SP)+,(SP)+ ; ADJUST STACK PTR 



003104 000004 

004074 
020000 



010000 



000250 



: CHECK THAT DATA WRITTEN ABOVE CAN BE READ 

MOV »D0NE4B,3*ERRVEC 

MOV PC.R1 

JSR PC.LDMMO 

MOV «26000,R2 

CLR RO 

IS: INC RO 

MOV •4096.. R4 

2$: MOV (R2)+,R3 

CMP R0.R3 

BEQ .+4 

HLT 

DEC R4 

BNE 2S 

BR IS 

D0NE4B: CMP (SP)+.(SP)+ 

; ROUTINE TO WRITE CONSTANT DATA INTO 4K 
:BANK STARTING WITH LAST MEMORY LOCATION 

MOV PC.R1 

MOV •MMABT1,3»MMVEC 



'EST DD0A8-A 0-124K NENORY EXERCISER 
XMBft.Pll ICNORY ADORESS TESTS 




1984 
1985 
1985 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
19% 
1997 
1996 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
200b 
2007 
2008 
2009 
2010 
2C11 
2C12 



11 
1 
I 

ia> 

003132 
003134 
00313b 
003142 
003144 
0031% 
003150 

003152 
00315b 
003174 
003200 

003204 
00320b 
003210 
003212 
003214 
00321b 



003222 
003224 
0032 30 
003232 
003234 
00323b 
003240 
003242 
003244 




0032% 
003250 
003254 
00325b 
003252 
003254 



012704 
010042 
10240b 

020227 

— 4 r- 




;i37i 

0007b5 




00140b 
012203 
020003 
001401 
104400 

3)13b7 
005200 
012704 
012203 
020003 
001401 
104400 
005304 
001372 
000766 

022b2b 
005737 
00140b 
005757 
100003 
012737 



000002 
010000 
01777b 

0032% 000004 
003750 

007244 000250 

020000 

010000 



010000 



000042 
001374 

000035 000742 



B05 
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; CHECK IF DONE 



•2.R2 

58 

•40%.. R4 

R0.-CR2) 

DOfCHC 

R2.« 17775 

D0NE4C 

R4 

2S 

II 



•0Of€40,StERRVEC 
PC,R1 

•Swr8?3lff1VEC ;SET ABORT VECTOR 
•20000, R2 



•40%., R4 
2S 

(R2H.R3 

R0.R3 

.♦4 

R4 
IS 
RO 

•40%.. R4 

(R2J+.R3 

R0.R3 

.♦4 

R4 
3$ 
2S 

(SP)VSPi* 

a«42 

BEGINl 
LCGICAL+2 
BEGINl 
»5,3«ICNT 



; CHECK IF WRITE ABOVE S'AP'EC 
;4K BOJNDARY 



; BRANCH IF PROGRAM UAS NOT 
; LOADED VIA ACT 11 IN 3V OR AA 
! BRANCH IF NOT IN QV NODE 

;SET ICNT TO DC 1 PASS ONLY I- 



T ES T OCOAB-A C- 
DDQABA.Pll 



2013 

2015 
£016 

2018 
2019 



003272 
003276 



2022 
2023 
2024 
202S 
202S 
2027 
2028 
2029 
2030 
2031 
2032 
20 33 
2034 
2035 
203b 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
20% 
2047 
2048 
2043 
2050 
2051 
2052 
2053 
2054 
2055 
205£> 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2065 



003314 
003316 
003322 
003324 



003330 
003336 
003342 
003344 
00335 0 
003352 
003354 

003360 
003362 



003364 
003370 
003372 
003400 
003404 
003406 



003412 
003420 
003424 
003426 
0C3430 
003432 
003436 
003440 
003444 
0034% 



003452 
303%6 
X346C 



I24K MEMORY EXERCISER 
MEMORY ADDRESS TESTS 



C05 



012706 
004767 
004767 
012737 



010701 
0127% 
0050% 
004767 



012737 
012706 
010701 
0127% 
005403 
0103% 
004767 

005027 
000000 



012706 
010701 
012737 
0127% 

004767 1 



012737 
016600 
005400 
010027 
000000 
01270b 
010701 
0127% 
0100% 
004767 



001406 
005737 
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THIS TESt^URWES^Il^WOR^^Rsi 5 !^^ TEST PATTERNS THROUGHOUT 
MEMORY AND CHECKS THAT THEY CAN BE WRITTEN AND PEAO. 



000500 
003544 



000001 
004162 



001116 
000500 

000001 



0QM244 



000500 

003412 
000001 

004446 



001116 
000006 



000500 
000001 
004626 

007116 
00336c 



000004 



T UP TRAP 
INI: MOV 
JSR 
JSR 
MOV 



VECTORS 
•STI 



,-TKPTR.SP 
PC..HAMF 



PC.CKSWR 
•06NESV3 



SlERRVEC 



SET STACK PTR 
GO ENABLE PARITY ACTION 
GO CHECK SWITCHES 
SET UP TIME OUT TRAP 



000004 



;WRITE 



:CHECK 
OONES: 
IS: 



1 XOR 
MOV 
MOV 
CLR 
JSR 



8 TEST PATTERN STARTING AT ADORESS 20000 



PC,R1 
•l.-(SP) 
-(SP) 
PC, . 1X8 



UPDATE TRACE REGISTER 
PUSH STARTING BANK t ON THE STACK 
PUSH t OF 128. WORD BLOCKS TO WRITE 
" ROUTINE TO WRITE 1 



GO TO 



XOR 8 PATTERN 



1 XOR 8 TEST PATTERN WRITTEN ABOVE 

MOV lERRTRP , SlERRVEC 

MOV ISTKPTR.SP ;SET STACK PTR 

MOV PC.R1 ; UPDATE TRACE REGISTER 

MOV II, -(SP) ; PUSH STARTING BANK I ON THE STACK 

NEG R3 R3 CONTAINS • OF 128. WORD BLOCKS 

MOV R3.-CSP) ; WRITTEN BY .1X8 ROUTINE ABOVE 

JSR PC,.. 1X8 ;G0 CHECK 1X8 PATTERN 



CLR (PC)* 
PARPAT: .WORD 0 



;SET INDICATOR TO WRITE NORMAL 3X3 =>A" 



; WRITE 3 XOR 9 TEST PATTERN STARTING AT AOORESS 20000 
NOTE PATTERN IS NC4?HAL3 XOR 9 IF NO PARITY MEMORY IS AVAILABLE. 
AND IS A MODIFIED PATTERN IF PARITY MEMORY IS AVAILABLE. 
THE CONTENTS OF PARPAT IF Q/NOT 0 IfCICATE IF NORMAL/MODIFIED PA"T£=n 



000004 



000004 



.IS BEING USED 
60NE6: MOV 
MOV 
MOV 
MOV 
CI 



IN TESTS BELOW. 
•STKPTR.SP 

7, SlERRVEC 
•l.-(SP) 
-(SP) 
PC, .3X9 



SET STACK PTR 

UPDATE TRACE REGISTER 

SET TIME OUT TRAP VECTOR 

PUSH STARTING BANK I ON STACK 

PUSH I OF 256. WORD BLOCKS TO WRITE 

CALL ROUTInTtO WRITE 3X0R9 PATTERN 



: CHECK 
D0NE7: 



3 XOR « 
MOV 
MOV 
NEG 
MOV 

WDS. 256:. WORD 
MOV 
MOV 
MOV 
MOV 
JSR 



TEST PATTERN WRITTEN ABOVE 
•ERRTRP . 3 lERRVEC 
6(SP),R6 



RO 

RO,(PCJ* 

•STKPTR.SP 
PC.R1 
•1,-(SP) 
RO,-(SP) 
PC, . .3X9 



GET • OF 256. WORD BLOCKS WRI< 
FORM TWO'S COMPLEMENT 
SAVE • OF 256 WORD BLOCKS 
CONTAINS I OF 2S6 WORD BLOCKS IN 
SET STACK PTR 
SET SCOPE PTR 
PUSH BANK I ON THE STACK 
PUSH I OF 256. WORD BLOCKS TO 
GO CHECK DATA WRITTEN 



WRI'E 



; SETUP TO RUN MODIFIED 3 

TST SlPARAVA 

BEQ OONES 

TS" SlPARPAT 



XOR 



9 PATTERN IF PARITY MEMORY IS AVAILABLE 
: BRANCH IF PARITY MEMORY IS 40 T Avfil^ 

; BRANCH IF PARITY PAT J'JS T UPI* T EN 



D05 



T EST 



2069 

ffl 

2072 

ffl 

207S 
207b 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
208M 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2083 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
212H 
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WORST CASE NOISE TES'S 



003464 
003474 



003510 
003514 
003S16 



0035 30 
003 53 6 
003542 
003544 
003550 
003552 
003554 



003560 
003562 
0 03 5 66 
003570 
003574 
003600 
003604 
003606 
003610 
003612 

003614 
003620 
003624 
0036X 
003636 



001003 

m 

012706 

SlCT?! 
0127% 
0050% 
004767 



012706 
010701 
012737 
0127% 
005404 
042704 
001403 
0104% 
004767 



000005 
005737 
001402 
000137 
012706 
004567 
000000 
020000 
005704 
001402 

000137 
062707 
062706 
052767 
016737 



003644 010701 



0036% 0050% 

003650 0127% 

003654 004767 

003660 010701 



003362 



000500 

003522 000004 

000002 

005226 

000500 

001116 000004 
000002 

000001 
00524b 



000042 

004252 
000500 
002S44 



004252 
020000 
020000 

100000 175112 
175106 177570 



BNE 

m w 

nov 

MOV 

nov 

CLR 
JSR 

:CHECK 8 XOR 
D0NE9: NOV 

nov 
nov 
nov 

NEC 
BIC 
BEO 

nov 

JSR 



D0NE8 

S 



|P^IPARPRT 



;SET INDICATOR TO WRITE 3X9 PAR PA? 
; REPEAT TEST USING NOOIFIEO 3X9 P£ T "EPf' 



13 » ST «!Hf APW" 40000 

•pW€9,3lERRVEC 



•2.-(SP) 
-(SP) 
PC,. 8X13 



SET TINE OUT TRAP VECTOR 
UPDATE TRACE REGISTER 



PUSH STARTING BANK • ON THE STACK 
PUSH • OF BANKS TO WRITE ON THE 
GO TO ROUTINE TO WRITE DATA 



13 TEST PATTERN WRITTEN ABOVE 
•STKPTR.SP ;SET STACK PTR 

PC X R1 ; UPDATE TRACE REGISTER 

•ERRTRP.atERRVEC 
•2,-(SP5 
R4 

•1,R4 ;SET 4K BANK COUNT TC BK INCREHEV 

gONElgp, ;00 NOT CHECK IF ONLY 12K 

PC|..8X13 



;G0 CHECK 8 XOR 13 PATTERN WRI"E> -3S. 



II 



2S 



SS42 
21 

atRANTST 
•STKPTR.SP 
S.RELOC 



: RELOCATE PROGRAN TO 
D0NE10: RESET 
TST 

nov 

JSR 

000000 
20000 
TST R4 
BEO 3S 



JNP atRANTST 

31: ADO •20000,PC 

ADO i20000.SP 

BIS •lOOOOO.LDOISP 

NOV LDOISP , SlOISPLAY 



CHECK AOORESSES FROH 000000-017776 USING 1 *Ofi 
DISABLE HEN NGHT AND PARITY AC*I3N 
CHECK IF PROGRAN LOADED VIA AC* 11 



3 s 



DO NOT RELOCATE IF ACH1 
SET STACK PTR 
RELOCATE PROGRAN CODE 
FROH 000000 TO 
20000 

HAS RELOCATION SUCCESSFUL' 

BRANCH IF SUCCESSFUL I.E. WAS ~HE 5 E 

SUFFICIENT NEHORY TO RELOCATE *C. 

RELOCATE^ 

SET NEW STACK PTR 

SET RELOCATION INDICATOR 

LOAD DISPLAY REGISTER 



#**#########*####♦### IMPORTANT N0TE»**»»**««*«******«*********** 
PROGRAN IS NOW EXECUTING CODE FROH PC AS SHOWN BELOW +20000 . 
CAUTION: 00 NOT ATTEHPT TO RESTART PROGRAN AT 200 



D0NE11: NOV PC.R1 



; RESTART ADORESS TO LOOP TEST 



000040 
003532 



; WRITE 1 XOR 8 TEST PATTERN IN LOCATIONS 000000-01777b 

CLR -(SP) ;PUSH STARTING BANK • ON THE STACK 

NOV »32.,-(SP) :PUSH • OF 128. WORD BLOCkS JO WRITE 

JSP PC,. 1X8 ; GO TO ROUTINE TO WRITE 1 XOR 8 DA'A 



NCV PC.R1 



: RESTART J LOOP TEST AC0RES5 



T EST OOQAB-A 0-1 24K MEMORY EXERCISER 
00QA8A.PI1 WORST CASE NOISE TESTS 



212S 
2126 
2127 

2130 
2131 

2134 
213S 
2136 
2137 
2138 
2139 
2140 
2141 
21H2 
2143 
2144 
2145 
21% 
2147 
2146 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2156 
2159 
21b0 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2166 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 

2iec 



003662 005046 

003664 012746 000040 

003670 004767 003730 



i74 
i76 
003702 
003704 
003706 
003712 



003734 



003754 



0 03 77 2 
003776 
004002 
004004 
004012 
004020 
004024 
004026 

004032 
004034 
004040 
004044 
004050 
004056 



004064 
004070 



004072 
004074 
004076 



010701 
004567 
020000 
000000 
000137 
012767 
012767 
042737 
016737 



5737 
012737 
005737 
006367 
006367 
012706 
010701 
042737 
013737 
004567 



linn 



u 1 1 • i 



005704 
001402 
000137 
066707 
066706 
052767 
016737 



002446 



003712 
040000 

W 

175010 



57776 
003776 

000100 
000500 

100000 
000750 
002324 



004252 
177762 
177756 
100000 
174666 



005037 003362 
010701 



005046 
0127% 
000000 



004100 004767 002754 



004104 0107C1 
004106 005046 
J04110 016746 177762 



000106 
000150 
000750 
177570 
000004 

000004 



000750 
177570 



174672 
177570 



E05 
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; CHECK 1 XOR 8 TEST PATTERN AS WRITTEN ABOVE 



CLR 
NOV 
JSR 



-(SP) 
•32., -(SP) 
PC,.! 1X8 



PUSH STARTING BANK • ON THE STAC' 
PUSH • Of 128. WORD BLOCKS TO WPI T E 
GO TO ROUTINE TO CHECK DATA 



; RELOCATE PROGRAM TO CHECK ADORESSES 000000 - 037776 USING 



.3 XOR 9 AND 8 XQR 13 PATTERNS 
DONE 12: MOV PC.R1 

JSR RS.RELOC 



IS: 



2$: 



31: 
41: 



20000 
000000 
JMP 
MOV 
MOV 
BIC 
MOV 
MOV 
TST 
MOV 

& 

ASL 
MOV 
MOV 
BIC 
MOV 
JSR 

000000 

40000 

TST 

BEQ 

JMP 

ADD 

ADD 

BIS 

MOV 



91. +4 
•40000,2$ 



UPDATE TRACE REGISTER 

MOVE PROGRAM BACK TO LOUEST HK 

FROM 20000 TO 

000000 

RETURN UNRELOCATED 



^™,.3»LD0ISP 
LDOISPjtOISPLAY 



; CLEAR RELOCATION INOICA T O c 

wv . - . .n . :DISPLAY NOT RELOCATED 

•3S.3f£RRVEC ;SET TIME OUT TRAP 
3 •057776 ; CHECK IF 12K OF MEMORY IS AVAILABLE 

•IS.ifERRVEC 

|*1 17776 ; CHECK IF 20K OF MEMORY 

BLKCNT 

•STKPTR.SP ;SET STACK POINTER 

PC.R1 UPDATE TRACE REGISTER 

•100000. 3»L0DISP ; CLEAR RELOCATION IFCICA'jF 

3«.DD1SP,3«0ISPLAY :L0A0 DISPLAY REGISTER 
R5.REL0C ; RELOCATE PROGRAM 

;FROH 
;T0 
;RELC 
;YES 



R4 
41 

3«RANTST 
2$, PC 
2S SP 

•100000.LDOISP 
LOOISP.itOISPLAY 




ON SUCCESSFUL 1 



GO TO RANDOM DATA TEST 
RELOCATE PC 

:SET NEW STACK PTR 
SET RELOCATION INDICATOR 
RELOAD DISPLAY REGISTER 



; **####*#*****ft*t*§tii IMPORTANT NQTEttf « MHHHHHI HHHmUHWWWW 



PROGRAM IS NOW EXECUTING CODE 
•CAUTION: DO NOT ATTEMPT TORE 



FROM PC AS SHOWN BEL OH +40000 OR +100000 
START PROGRAM AT 200 



[HXJLlJllJlJlllJmLAJLlllA 

TWm «hwwtttttttttttti 



CLR 

D0NE13: MOV 



3«PARPAT 

PC.R1 



;SET INDICATOR TO WRITE NORMAL 3X9 PA1 
I UPDATE TRACE REGISTER 



; WRITE 3X0R9 TEST PATTERN IN LOCATIONS 000000-037776 OR 



I I MM 



-077776 



BLKCNT: 



CLR 
MOV 
.WORD 

JSR 



■CSP) 
(PC)+.-(SP) 
0 

PC, .3X9 



PUSH BANK * 0 ON THE STACK 
PUSH 256. BLOCK WORD COUNT ON STACK 
CONTAINS 256. BLOCK WORD COUNT LOADED 
BY ABOVE ROUTINE. 40/ 100 IF B-'16K 



; CHECK PATTERN WRITTEN IN LOCATIONS 000000-037776 OR 000000-077776 



MOV PC.R1 
CLR -(SP) 
MOV BLKCNT. -(SP i 



;PUSH STARTING BANK • ON THE STACK 
;PJSH 256. UORD BLOCK COUNT ON THE S*AC< 



F05 
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DOQABA.P11 WORST CASE NOISE TESTS 



2181 

2182 

2183 

2184 

218S 

2188 

2187 

2188 

2188 

2190 

2181 

2182 

2193 

2194 

2195 

21% 

2197 

2196 

2199 

2200 

2201 

220? 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2225 

223fc 



004114 004787 004180 



004120 

004128 
004132 
004134 
004140 



005737 

m 

001003 
010887 
000753 



004142 010701 

004144 005046 

1148 012748 

. - ytf 



00476? 



883fl 



004158 
004180 
004182 
004188 



004172 
004200 
004208 
004210 
004214 
004216 
004222 
004224 
004228 
004232 
004238 
004244 



004252 
004254 
004282 
004288 
004270 
004274 
004300 
004306 
004314 
004320 
004322 
004328 
004330 
004332 
004334 

004336 
004342 



010701 
005046 
012746 
004767 



012787 
022787 
001402 
008387 
010701 
004587 
040000 
000000 
000137 
012708 
042737 
013737 



010701 
012737 
005767 
001412 
004767 
105237 
012737 
012737 
012702 
005004 
012705 
012422 
012422 
005305 
001374 

012705 
01440C 
0142C3 



007116 
003362 
177222 



000002 
004634 



040000 
000040 

000008 

002128 

004232 

100000 
000750 



004412 
174464 

002652 
172301 
077406 
000400 
020000 

004000 



005477 



JSR 



PC, . .3X9 



; ROUTINE TO CHECK IF MODIFIED 3 



TST 
BEQ 
TST 
BNE 
110V 
BR 

: WRITE 8 XOR 
DONE 14: MOV 
CLR 
MOV 
JSR 



13 



atPARAVA 

SSpARPAT 
D0NE14 
SP.PARPAT 

PC.R1 
-(5P) 
•2,-(SP) 
PC .8X13 



; CHECK 

X0R9 PATTERN SHOULD BE RUN 

; BRANCH IF PARITY MEMORY NOT AVAIl 

; BRANCH IF MOOIFIEO PATTERN JUST PJN 




MOOIFIED PA* 
EO PATTERN 



INDICATOR TO WR] 

TIOhI 0$00&-$$T f 
UPDATE RESTART & LOOP ADORESS 
PUSH STARTING BANK I ON THE STACK 
PUSH • OF BANKS TO WRITE ON THE STACK 
Go TO ROUTINE TO WRIT* DATA 



: CHECK 8 XOR 13 PATTERN WRITTEN ABOVE 



MOV 
CLR 
MOV 
JSR 



PC.R1 
-(SP) 
»2,-(SP) 
PC,.. 8X13 



0OC022 
177670 



RELOCATE PROGRAM BACK 



60NE15 



IS: 



000750 
177570 



000004 



172304 
172344 



MOV 
CMP 
BEO 
ASL 
MOV 
JSR 
40000 
000000 
JMP 
MOV 
BIC 
MOV 



TO LOWER 
IS 



•40000,^ 
•40.BLKCNT 
.♦& 
IS 

PC,R1 
RS RELOC 



3f.+4 
•STKPTR.SP 
•100000. atLDOISP 



; UPDATE RESTART & LOOP ADDRESS 
;PUSH BANK t ON THE STACK 
;AND • OF BANKS TO CHECK (2) 
;G0 TO CHECK ROUTINE 

MEMORY 



; UPDATE TRACE REGISTER 
;MOVE PROGRAM BACK INTO LOWER 
;FROH 40000 OR 100000 
TO 000000 

; RETURN UNRELOCATED 
RESET STACK POINTER 

; CLEAR RELOCATION INCICfi'CC 



SILOOISA.SIOISPLAY -LOAD DISPLAY REGISTER 



:RANDOM 
RANTST: 



.SBTTL RANDOM DATA. ROTATING 1/0 TESTS 

DATA TEST. THIS TEST MOVES THE PROGRAM CODE THROUGHOUT nE.IC 



IS: 

25: 
3$: 



if: 



MOV 

MOV 

TST 

BEQ 

JSR 

INCB 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 
MOV 
MOV 



PC.R1 

»7S,3«£RRVEC 
HHAVA 
IS 

PC.LDHHO 

atKlPORO+1 , - ~, 

•200*256. -400+UP+RW,a»KlP0R2 
«400 l 3«KIPAR2 



SET TRACE POINTER 
SET TIME OUT TRAP 
CHECK IF HEM HGHT IS AVAILABLE 
BRANCH IF NOT AVAILABLE 
GO SET UP HEM HGHT 
ALLOW 4K ADDRESSING IN FIRST 4K 

;SET KIPDR2=RW JP 2CC 



«20060,R2 
R4 

•2048. .RS 

(R4)+,(R2)+ 

(R4)+,(R2)+ 

R5 

3S 



;SET 'TO' ADDRESS POINTER 
SET 'FROM' ADDRESS POINTER 
;SET 4K WORD COUNT 
:HOVE CODE 

;DECREHENT 4K WORD COUNTER 



•4096. -PLACE* 1.R5 :SET 4K WORD COUNTER 

-(P4),R0 ;GET , G06d* DATA 

-(R2),R3 :GET 'BAD* DATA 
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2237 



2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
22SM 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 



004346 

0043S4 
004356 
004360 
004362 

004364 
004370 
004372 
004376 
004402 
004404 

004410 
004412 
00441b 



004424 
004432 
004436 
004442 
0044% 
004450 
004454 
004460 



004464 
004470 
004474 
004500 
004504 
004506 
004512 
004516 



004522 
004530 
004532 
004536 
004540 
0045% 
004550 
004554 



004570 
004574 
004600 
004606 

004610 
Q04614 



020003 

m% 

104400 
005742 
005305 
001367 

005767 
001405 
005237 
005237 
000744 
062702 
000744 
012706 
012737 



012767 
0127% 
0167% 
004767 
010701 
0127% 
0167% 
004767 



005067 
0127% 
0167% 
004767 
010701 
0127% 
0167% 
004767 



012767 
000005 
005367 
001374 
032767 
001407 
005067 
012767 
004767 
010701 
012706 
005237 
022737 
001406 
004567 
012442 



174362 

172342 
172344 

000100 

000500 
001116 



177777 
000001 
176766 
005004 

000001 
176750 
004536 



001014 
000001 
176730 
0047% 

000001 
176712 
004574 



000050 

000064 

000100 

173474 
000207 
173462 

000500 
000742 
000007 

174144 



SS: 



000004 
001052 



65: 
7$: 



CHP 

IS? 

HLT 
TST 
DEC 
BNE 

TST 

BEQ 

INC 

INC 

BR 

ADD 

BR 

NOV 

NOV 



R0.R3 



; COMPARE 'GOOD' & 'BAD' DATA 

;STEP ADDRESS FOR ERROR ROUTINE 
; REPORT ERROR 
RESTORE ADDRESS POINTER 
; DECREMENT 4K UORO COUNTER 
;LOOP UNTIL 4K UOROS CHECKED 

; CHECK IF MEM MGNT IS AVAILABLE 
; BRANCH IF NOT AVAILABLE 



-CR2) 
R5 
4S 

NNAVA 
6S 

SIKIPAR1 
SIKIPAR2 
IS 

•64., R2 
2S 

•STKPTR.SP 

•ERRTRP , 3IERRVEC ; RESTORE ERROR TRAP VECTOR 



;STEP ADDRESS 
; RESET STACK PTR 



ROTATING 0 TEST. THIS TEST ROTATES A SINGLE '0' THROUGH MEMORY 



ROTO: MOV 1-1, .CONST 

MOV ll.-(SP) 

MOV UDS.256.-(SP) 

JSR PC,. USER 

MOV PC.R1 

MOV •ll-(SP) 

MOV UDS.2S6.-CSP) 

JSR PC,. ROTO 



SET CONSTANT =177777 
SET BANK II 
GET • OF 256. UORO BLOCKS IN MEMORY 
GO WITE l'S THROUGHOUT MEMORY 
SET SCOPE PTR 
SET STARTING BANK • 
SET • OF 256. UORO BLOCKS TO CHECK 
GO TO ROTATE 0 ROUTINE 



; ROTATING 
:MEMORY 
ROTi: 



1 TEST THIS TEST ROTATES A SINGLE T BIT THROUGH ALL OF 



000072 

173022 
173470 

000742 



:ENO 
END: 
IS: 



2$: 



CLR 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
JSR 

OF CYCLE 
MOV 
RESET 
DEC 
BNE 
BIT 
BEQ 
CLR 
MOV 
JSR 
MOV 
MOV 
INC 
CMP 
BEQ 
JSR 
ASTERISK 



.CONST 
•l.-CSP) 
UOS. 
PC, . 
PC,R1 

PC,.ROTl 



,-(SP) 



-(SPJ 



CLEAR CONSTANT 

PUSH STARTING BANK ONTO STACK 

AND • OF 256. UORO BLOCKS IN MEMOPt 

GO HRITE O'S THROUGHOUT MEMORY 

SET SCOPE PTR 

SET STARTING BANK • 

SET • OF 256. UORO BLOCKS T 0 CHECK 

GO ROTATE A '1* BIT THROUGHOUT MEMORY 



•50, TEMPO 

TEMPO 

«SH06,SUR 
2S 

EOPHLT 
•207.252 
PC.EOPHLT 
PClRl 

•STKPTR,SP 
3»ICNT 
•7.3»ICNT 

DONE 

R5, SPRINT 



UPDATE TRACE REGISTER 
SET STACK PTR 
INCREMENT PASS COUNT 
8 PASSES' 

BRANCH IF 8 PASSES COMPLETED 
GO TO PRINT ROUTINE 
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22<33 


004616 


000137 


003272 


2294 








22S5 


004622 


000000 




22% 








2297 


004624 






2298 


004624 


004S67 


174130 


2299 


004630 


012444 




2300 


004632 


10S737 


177564 


2301 


004636 


100375 




2302 


004640 


013700 


000042 


2303 


004644 


001407 




2304 


00%% 


004767 


1752S6 


230S 
2306 


00%52 


000005 




00%S4 


004710 




2307 


00%56 


000240 




2308 


004660 


000240 




2309 


004662 


000240 




2310 


004664 


000167 


175456 


2311 








2312 








2313 








2314 








231S 








2316 








2317 


004670 


005067 


001124 


2318 








2319 


00%74 


012706 


000500 


2320 


004700 


005037 


006622 


2321 


004704 


005027 




2322 


004706 


000000 




2323 








232M 


004710 


012737 


000502 


2325 


004716 


012737 


000006 


2326 


004724 


005067 


174022 


2327 


004730 


000412 




2328 








2329 








2330 








2331 


004732 


032737 


010000 


2332 


004740 


001006 




2333 


004742 


000261 




2334 


004744 


005737 


177572 


2335 


004750 


103402 




2336 


004752 


005167 


173774 


2337 


004756 


012737 


001116 


2338 


004764 


005037 


000742 


2339 


004770 


005037 


000750 


2340 


004774 


005037 


003362 


2341 


005000 


032767 


000002 


2342 


005006 


001414 




2343 


005010 


000000 




2344 


005012 


005767 


000034 


234S 


005016 


001402 




2346 


005020 


004767 


002022 


2347 


005024 


005767 


000050 


234E 


00S030 


001002 





JMP 


atBEGINl 


TEMPO: .UORD 


0 


DONE: 




JSR 


RS, SPRINT 


ENDMSG 


TSTB 


3ITPS 


BPL 


.-4 


MOV 


3I42.R0 


BEQ 


FINISH 


JSR 


PC , SRLDR 


RESET 


LOGICAL: JSR 


PC t (RO) 


NOP 


NOP 




NOP 




FINISH: JMP 


START 1 



GO TO PRINT ROUTINE 

WAIT FOR BELL TO RING 

GET DECTAPE MONITOR RETURN AOQCESS 

RESTORE MONITOR & LOADERS 

GO TO DECTAPE MONITOR 



. SBTTL USER TESTS 
•SBTTL PROGRAM I 2 
; PROGRAM • 2 

;THIS PROGRAM ALLOWS THE USER TO SELECT A STARTING 4K BANK i,t OF 4K 
BANKS TO TEST, AND A WORST CASE PATTERN TO WRITE AND CHECK. 
CLR PRG3FLG ; CLEAR PROGRAM • 3 FLAG 

PROGRAM 3 ENTERS PROGRAM • 2 HERE. WITH PRG3FLG = 1. 
MOV ISTKPTR.SP ;SET STACK PTR 

CLR StPEFLG CLEAR PARITY ERROR INDICATORS 

CLR (PCH ; CLEAR RUNNING ALL PATTERNS FLAG 

.WORD 0 CONTAINS RUNNING ALL PATERNS FLAG 

;0/-l = RUNNING SELECTED/ALL PATTERNS 
MOV •PDWN.31PFVEC iSET POWER FAIL TRAP VECTOR 
MOV IERRVEC+2,31ERRVEC 
CLR NMAVA 

BR 1$ ;TELC0 SYSTEM DOES NOT HAVE HEM. MANAGEMEN T 
HENCE SW12 IS BEING DISCONNECTED. 
;CAN BE RECONNECTED BY DELETING 
THIS BR INSTRUCTION. 
lBIT12,a&SUR ; CHECK IF TEST IS TO BE RUN 
1J WITH HEM HGMT ENABLED 



PRG2 
: NOTE : 
PRG2A: 



ALLFLG: 



15: 



35: 



BIT 
BNE 

SEC 

TST 

BCS 

COM 

MOV 

CLR 

CLR 

CLR 

BIT 

BEQ 

HALT 

TST 

BEQ 

JSR 

TST 

BNE 



atSRo 
is 

MMAVA 

•ERRTRP,3lERRVEC 

ailCNT 

3IL0DISP 

3IPARPAT 

•SUOl.SUR 

55 

.PARIT 
35 

PC . . MAMF 
. ST BANK 
45 



; CHECK IF MEM MGHT IS AVAILABLE 
{BRANCH IF NOT AVAILABLE 



;SET INDICATOR TO 
;IS THERE A TTY ? 



URITE NORM 3X9 PA" 
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2349 

2350 

2351 

2352 

2353 

23S4 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 



2399 
2400 
2401 
2402 
2403 
2404 



00S032 
005036 
005040 
005044 

m 

0050S4 
005060 



005066 
005072 
005074 
005100 
005102 
005106 
005110 
005114 
005114 
005120 

SSI 

0051X 
005134 
005136 
005142 
005144 
005152 
005156 
005162 
005164 
005170 
005174 
005200 



005202 
005204 
005206 
005210 
005212 
005214 
005216 
005220 



005222 
005226 



005240 
005242 
005244 
0052% 
005250 
005252 



004767 
000442 
004567 
012120 

880OOO 
005767 
001402 
004767 

004567 
012155 
004767 
000000 
005767 
001002 
004767 

004567 
012204 
004767 



I I I I I I 



004567 
012241 
004767 
000000 
012767 
004767 
016700 
006300 
066700 
016000 
066700 
010007 



005222 
005312 
005400 
005472 
005600 
005674 
005770 
006000 



0167% 
0167% 
00631b 
005767 
001004 
006316 
006316 
006316 
006316 
011627 



Q01414 




JSR 




Hi' 


BR 


17^714 

A • w f A < 




JSR 






PARITY 


004b IB 




JSR 




.PARIT: 


.UORD 


17777? 

At* ■ • W 




TST 






BEQ 


001760 




JSR 




15: 




173bfab 




JSR 






STBANK 


004570 




JSR 




ST BANK 


: . UORD 


177772 




TST 






BNE 


00133b 




JSR 




1J: 




173b40 




JSR 






BANKS 


004542 




JSR 


.BANKS: 


.WORD 


173624 




JSR 






PAT 


004526 




JSR 




.PAT: 


.UORD 


005144 175210 


PRG2R: 


MOV 


004574 




JSR 


177760 




MOV 






ASL 


173564 




ADD 


005202 




MOV 


173554 




ADD 






MOV 



PC.RELOCP 
PRG2R 
RS, SPRINT 

PC.RECD 
0 

.PARIT 
IS 

PC..MAMF 
R5, SPRINT 

PC.RECD 
0 

. STBANK 
IS 

PC.RELOCP 

R5, SPRINT 

PC.RECD 

R5, SPRINT 

PC.RECD 
0 

•PRG2R.PERSTRT 

PC.CKSWR 

.PAT,RO 

RO 

RELOCF.RO 
HRTTAB(0),RO 
RELOCF.RO 
RO,PC 



GO TO PRINT ROUTINE 

GO GET ANSWER TO THE PARITY QUESTION 
TYPE 1 IF PARITY DESIRED 0 IF NOT 

BRANCH IF PARITY NOT DESIRED 
GO ENABLE PARITY ACTION 

GO TO PRINT ROUTINE 

ASK USER FOR STARTING BANK 

CONTAINS STARTING BANK t 
CHECK IF STARTING AT BANK 10 

GO RELOCATE THE PROGRAM TO TOP OF MEM 

GO TO PRINT ROUTINE 

ASK USER FOR I OF 4K BANKS TO TES T 

CONTAINS • OF BANKS TO CHECK 
GO TO PRINT ROUTINE 
ASK USER WHICH PATTERN 

CONTAINS PATTERN • 

SET PAR ERROR RESTART ADDRESS 

GO CHECK SWITCHES 

SHIFT PATTERN • TO FORM INDEX 

ADD RELOCATION FACTOR 

GET UNRELOCATED PC OF ROUTINE 

ROUTINE 



: TABLE OF ROUTINES TO WRITE SELECTED PATTERNS 
WRTTAB 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORD 



S1X8 
S3X9 



177652 
177674 

00C560 



:ROUTINES 
$1X8: MOV 
MOV 

ASL 
TST 
BNE 
ASL 
ASL 
ASL 
ASL 

IS: MOV 



SROTO 
SR0T1 
S3X9P 
SALL 



.STBANK, -(SP) 
.BANKS, -(SP) 
(SP) 

PRG3FLG 
IS 

(SP) 
(SP) 
(SP) 
(SP) 

(SP). (PC)* 



1 XOR 8 ROUTINE 
3 XOR 9 ROUTINE 
8 XOR 13 ROUTINE 
USER ROUTINE 
ROTATING '0' ROUTINE 
ROTATING T ROUTINE 
PARITY 3 XOR 9 PATTERN 
ALL EXCEPT USER 



"1. 
.2) 
(3) 
(4; 
iS? 

.7 1 



GET STARTING BANK, t 

GET I OF 4K BANKS 

MULTIPLY BY 32. 

IF PROGRAM t 3 STOP WI T h 

UORD BLOCK COUNT 

TO FORM 128. 

UORD BLOCK 

COUNT 

SAVE 



55b. 
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2405 

2407 
2408 
2409 

:4io 

2411 
2412 
2413 
2414 
2415 
241b 
2M17 
241B 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
24% 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2456 
245S 

24t: 



005254 
005256 

005262 



005276 
005302 
005306 
005310 

005312 
005316 
005322 




005334 
005336 
QQ5340 
005342 
005344 



005350 
005354 



>4 
005370 



005400 
005404 



mi 

005416 
005422 
005424 
005424 
005430 
005432 

005436 
005442 
0054% 
005452 
005456 
005462 
005466 
005470 



004 

016746 
0167% 
004767 
005267 
005767 
001001 
000744 

0167% 
0167% 
005767 
001004 
006316 
006316 
006316 
006316 
011627 
000000 
004767 



0167% 
0167% 

005767 
001001 
000764 



005737 
001007 
0167% 
0167% 
032716 
001405 



004567 
012257 
000167 

004767 
0167% 
0167% 
004767 
005267 
005767 
001044 
000743 



002230 

177612 
177762 
002326 
173440 
177400 



177562 
177604 
000472 



002510 



177524 
177762 
002714 
173352 
177312 



006020 

177466 
177510 
000001 



173330 

177232 

003306 
177432 
177454 
003350 
173260 
177220 



305472 

005472 0045b7 



173262 
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0 

PC,. 1X8 

.STBANK.-(SP) 

2S,-(SP5 

PC. . . 1X8 

ICNT 

ALLFLG 

S3X9 

S1X8 

.STBANK,-(SP) 

. BANKS. -(SP) 

PRG3FLG 

IS 

(SP) 

(SP) 

(SP) 

(SP) 

(SP),(PCH 
0 

PC, .3X9 

WRITTEN ABOVE 
.STBANK.-(SP) 
2S,-(SPi 
PC '..3X9 
ICNT 
ALLFLG 

gxia 

31PRG3FLG 
IS 

.STBANK,-(SP) 
. BANKS. -(SP) 
•l,(SPi 
2S 

R5, SPRINT 
PRG2 

PC,. 8X13 

,STBANK,-(SP) 

. BANKS. -(SP) 

PC...BX13 

ICNT 

ALLFLG 

SROTO 

S8X13 



CONTAINS 128. UORO BLOCK COUN' 
GO WRITE 1 XOR 8 TEST PATTERN 

GET STARTING BANK • 

GET 128. WORD BLOCK COUNT 

GO CHECK PATTERN 

CHECK IF RUNNING ALL PATERNS 

GO START 3X9 PATTERN IF RUNNING ALL 

OTHERWISE LOOP 

GET STARTING BANK I 
GET • OF BANKS 

IF PROGRAM I 2 STOP WITi 256. 

UORO BLOCK COUNT 

MULTIPLY BY 16. 

TO FORM 

256. WORD 

BLOCK COUNT 

AINS 256. WORD BLOCK COUNT 
GO WRITE PATTERN 



;GET STARTING BANK • 

;GET • OF 256. WORD BLOCKS 

•GO CHECK PATTERN 

; CHECK IF RUNNING ALL PATTERNS 

;G0 START 8X13 PATTERN IF RUNNING ALl 

; CANNOT DO 8X13 PATTERN USING 
{PROGRAM • 3 
;GET STARTING BANK I 
AND I OF 4K BANKS 
:MUST BE AN EVEN • OF 4K BANKS 



;G0 TO PRINT ROUTINE 
PRINT ' 
•RESTART 

;G0 WRITE PATTERN 

;G0 CHECK PATTERN 

: CHECK IF RUNNING ALL PATERNS 

;G0 00 ROTO PATTERN IF ALL SELEC T E: 



TE & CHECK USER CONSTANT 
R5, SPRINT ;G0 TO PRINT ROUTINE 
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2461 
2%2 



00S476 



4 

2%5 
2466 
2%7 
2466 
2%9 
2470 
2471 
2472 
2473 
2474 
247S 
2476 
2477 
2478 
2478 
2480 
2481 
2482 
2483 
2484 
248S 
2486 
2487 
2488 
2488 
2480 
2481 
2482 
2483 
2484 
248S 

2486 
2487 
2488 
2488 
2S00 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2508 
2510 
2511 
2512 
2513 
251M 
2515 
251b 



005512 
005516 




005532 
005534 
005536 
005540 
005544 



fiLwi 











005564 
005570 
005572 
005576 



005600 
005604 

005616 
005620 
005622 
005624 



005632 

SHE 

005650 

54 



005664 
005670 
005672 

005674 
005700 
005704 
005710 
005712 
005714 
005716 
005720 
005722 
005724 
005726 
00S732 



012263 
004767 

nra 

0167% 
005767 
001004 
006316 
006316 
006316 
006316 
011627 

004767 
0167% 
0167% 
004767 
005267 
105737 
1003% 
005737 
000735 



0167% 
0167% 
005767 
001004 
006316 
006316 
006316 
006316 

012767 

8l67% 
0167% 

WSt 

005767 
001001 
000742 

016746 
0167% 
005767 
001004 
006316 
006316 
006316 
006316 
011627 
000000 
005067 
00M767 



004164 

177366 
177410 
000276 



003706 
177330 
177762 
003744 
173156 
177560 

177562 



177274 
177316 
000204 



177777 177644 



it 

177754 
003342 
173056 
177016 



177200 
177222 
000110 



CONST 
JSR 

.CONST: .WORD 
1$: MOV 
MOV 
TST 
BNE 
ASL 
ASL 
ASL 
ASL 

2$: MOV 
3S: .WORD 
JSR 
MOV 
MOV 
JSR 
INC 
TSTB 
BPL 
TST 
BR 

: ROTATING '0* 
JROTO: MOV 
MOV 
TST 
BNE 
ASL 
ASL 
ASL 
ASL 

2J: MOV 
31: .WORD 
MOV 
JSR 
MOV 
MOV 
JSR 
INC 
TST 
BNE 
BR 



SR0T1: 



177S52 
003514 



2$: 
3$: 



MOV 

MOV 

TST 

BNE 

ASL 

ASL 

ASL 

ASL 

MOV 

.WORD 

CLR 

JSR 



PC.RECD 
0 

,STBANK,-(SP) 

. BANKS. -(SP) 

PRG3FLG 

2$ 

(SP) 

(SP) 

(SP) 

(SP) 

(SP),(PC)+ 
0 

PC.. USER 

.STBANK.-(SP) 

3S,-(SP} 

PC... USER 

ICNT 

SiTKS 

It 

StTKB 
SUSER 

ROUTINE 

.STBANK,-(SP) 

.BANKS.-(SP) 

PRG3FwG 

21 

(SP) 

(S' J ) 

(SP) 

(SP) 

(SP),(PC)+ 

fl 

l-l,. CONST 

f .StBANK?-(SP) 

PC.. ROTO 
I Cft i* 
ALLFLC 
SR0T1 
IROTO 

.STBANK,-(SH 
. BANKS. -(SP) 
PRG3FLG 
2S 

(SP) 
(SP) 
(SP) 
(SP) 

(SP).(PC)+ 
0 

.CONST 
PC,. USER 



;ASK FOR USER CONSTANT 

; CONTAINS USER CONSTANT 
GET STARTING BANK • 
;GET 4K COUNT 



{MULTIPLY 4K BANK COUNT BY lb. 
•TO FORM 256. WORD BLOCK COUNT 

;SAVE 

;G0 WRITE USES CONSTANT 
;GET STARTING BANK t 
AND • Cr 256. WORD BLOCKS 
;G0 TO USER CHECK ROUTINE 

: CHECK IF USER HAS TYPED A SHARACEP 

; CLEAR FLAG 



;GET STARTING BANK • 
;GET I OF BANKS 



.•MULTIPLY 4K BANK COUNT BY 16. 
;T0 FORM 256. WORD BLOCK COUNT 



SAVE 

CONTAINS 256. WORD BLOCK COUNT 
SET CONSTANT 

GO WRITE ALL l'S THROUH MEMORY 

GET STARTING BANK I 

GET I OF 256. WORD BLOCKS TO CHECK 

GO CHECK ROTATING Q PATTERN 

INCREMENT DISPLAY COUNT 

CHECK IF RUNNING ALL PATERNS 

GO TO SR0T1 IF RUNNING ALL PATTERNS 

LOOP 

GET STARTING BANK I 

GET I OF 4 K BANKS 

CHECK IF RUNNING PROGRAM 3 

S9ANCH IF RUNNING PROGRAM 3 

SHii'T 4K BANK COUNT BY lb. 

TO FOh,^ ?5b. WORD BLOCK COUhT 



SAVE 

CONTAINS 25b. WORD BLOCK COUNT 

SET CONSTANT 

GO WRITE O'S THROUGHOUT 



TEST DOQAB-A 0-124K MEMORY EXERCISER 
DDQABfi.Pll PROGRAM t 2 



L05 



MACY11 27(732) 10-SEP-76 10:35 PAGE fr3 



2517 
2518 
2519 

!l 
2522 
2523 
2S2H 
2525 
2526 
2527 
2528 
2529 
2530 

2533 
2S3M 
2535 
2538 
>37 
Ik 

n 

2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2S61 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 



005736 016746 
005742 016746 
J746 004767 
J7 

005762 001744 
005764 000167 



005770 010667 
005774 000167 



006000 010667 
006004 000167 



006010 
006014 
nrvji?n 



006026 
006030 
006034 
006036 



006042 
0060% 



006062 
006066 
006072 
006074 
006100 
006102 
006110 
006114 
006116 
006122 
006124 
006130 
006132 
006140 
006144 
006150 

006156 
006160 
006164 
006166 
006172 



012706 
012727 

mi 

012303 
004567 
012204 
000167 



012706 
005037 
012737 
000005 
012707 
004567 
012364 
004767 
000000 
016767 
006037 
103406 
004567 
012263 
004767 
000000 
012767 
016703 
01b704 
001020 
022703 
101412 
006037 
103431 
004767 
0047b7 



177136 
177756 
003344 
172764 
176724 

177232 



17S3* 



MOV 
MOV 
JSR 
INC 
TST 
BEQ 
JMP 



.ST9ANK.-(SP) 

ICNT 
ALLFLG 
SR0T1 
S1X8 



GET STARTING BANK I 

m* mm mm 

INCREMENT PASS COUNT 
CHECK IF RUNNING ALL PATTERNS 
LOOP IF NOT RUNNING ALL PATTERNS 
GO DO 11X8 PATTERN 



1772 



176702 
177212 



000500 
000001 

172732 

172724 

176632 



: ROUTINE TO CHECK MEMORY USING 3 XOR 9 PARITY PATTERN 
S3X9P: MOV SP.PARPAT ;SET INDICATOR TO WRITE PARITY PATTERN 

JMP $3X9 



SP^ALLFLG 
PROGRAM a 3 



;SET INDICATOR 

•BEGIN WITH 1X8 TEST PATTERN 



:ALL PATTERNS 
J ALL: MOV 
JMP 
.SBTTL 

;THIS PROGRAM IS THE SAME AS PROGRAM • 2 ABOVE EXCEPT THAT 256. WORD 
DATA BLOCKS MAY BE WRITTEN 

•STKPTR.SP ; SET STACK PTR 

;SET PROGRAM 3 FLAG 



:umr 
PRG3: 



MOV 
MOV 

PRG3FLG:jW0R0 

PRG3M 
JSR 

JF 5 



•l,(PC)i" 
8s, SPRINT 
RS, SPRINT 
PRG2A 



000500 

001116 000004 



.SBTTL PROGRAM • 
;THIS PROGRAM MAY BE USED 
MEMORY LOCATION 



;G0 TO PRINT ROUTINE 
;G0 TO PROGRAM 2 

4 

TO READ/WRITE A USER CONTANT INTO ANY 



PRG4: 



006066 
172666 

003570 

003634 000236 
177570 

172636 

003540 

006132 174222 

177734 

000176 

020000 

177570 

172112 
000254 



SADRSO: 



SCONST: 
PRG4A: 



MOV 
CLR 
MOV 
RESET 
MOV 
JSR 
PRG4M 
JSR 
.WORD 
NOV 
ROR 
BCS 
JSR 
CONST 
JSR 
.WORD 
MOV 
MOV 
MOV 
BNE 
CMP 
BLOS 
ROR 
BCS 
JSR 
JSR 



•STKPTR.SP 



•ERR^rkp\ 



3IERRVEC 



I.+4.PC 
R5.SPRINT 

PC.RECD 
0 

.1617..EXTA0 
atSWR 
PRG4A 
R5, SPRINT 

PC.RECD 
0 

iPRG4A,PERSTRT 
SADRSO, R3 
.EXTAD,R4 
10S 

i20000,R3 
1$ 

a*SUR 
3$ 

PC,SSAVR 
PC.RELOCP 



;SET STACK PTR 

; CLEAR PARITY ERROR INDICATORS 

; RELXATE BACK TO FIRST 4K 
;G0 TO PRINT ROUTINE 

;SONTAINS ADORESS BITS <15-0> 
GET EXTENDED ADORESS BITS <17-16> 

; CHECK SWITCH 0 

;G0 TO PRG4A IF SET 
GO TO PRINT ROUTINE 



CONTAINS USER CONSTANT 

SET RESTART ADORESS ON PAR ERROR 

GET ADDRESS BITS <15-0> 

GET ADDRESS BITS <17-16> 

BRANCH IF MEM HGMT REQUIRED 

CHECK IF ADCRESS IS LESS THAN 20000 

BRANCH IF IT IS NOT 

CHECK IF READING 

BRANCH IF READING 

GO SAVE REGISTERS ON THE STACK 

GO RELOCATE PROGRAM 



TEST DDOAB-A 0- 


124K MEMORY EXERCISER 




?7(73?) 


DDQABA.P11 


PHOGRRn 


M Li 

• 4 








2573 


006176 


nmi7C7 

□04767 


17dlcb 






JSR 


2574 


006202 


000422 








PR 
on 


2575 


006204 


022703 


160000 




1$: 


CMP 


2S76 


006210 


i n i n i 7 
101017 








PUT 
Dill 


2577 


006212 


UlUJUc 








MOV 


2378 


006214 


□lc7UU 


nnnnnc 
UUUUUb 






MOV 

I IV ™ 


2579 


006220 


UubcUH 








QSR 


2580 


006222 


UUbUUo 








nVn 


2581 


006224 


n77nn3 

U77UUJ 

nmi7C7 


nnn7 i u 
UUU'IH 






SOB 


2582 








JSR 


2583 




ni n337 


1 733U3 

1 f c Jtc 






MOV 


258H 


UUDC JO 


04c/Uc 


i 777nn 
iff fUU 






PTC 


2585 




nc37no 
Ubc/Uc 


nannnn 
UcUUUU 






BIS 


2586 




umnui 








BR 

or* 


2S87 


UUOC3U 


ni n3n3 
UlUJUc 






V Jf • 


MOV 


2588 


UUOC3C 


Ulb/uU 


1 77LX3 
if f bbC 




41* 


MOV 

1 IV/™ 


2589 


UUDCjO 


n 1 3737 


nncnuo 
UUblNc 


nnnntn 
UUUUbU 




MOV 


2590 


UUOCO » 


Ux7o7 


nnn i nn 
□00 100 


1 77CCn 

1/Ybbu 




PIS 


2591 


UUDC' C 


OUbOo/ 


1 77C7n 

If /dAJ 






ROR 


2592 


UUUtfU 


i noni u 
lUJulM 








BCC 

DVV 


2593 




ni i ouc 
UllcMb 








MOV 


2594 


00&30? 


fVUl7C7 


1 f J4 JM 






JSR 


2595 




UU4bo/ 


1 f cM^b 






JSR 


25% 


00^31? 


n 1 C 1 33 

Ulblcc 








SCRLF 


2597 


UMMl i 


nC3*7C7 
Ubcr Or 


UUUUUc 


1 77CCC* 
if /33D 




ADD 


2598 




UUbbbf 


nnnnon 
UUUUcU 






ADC 

nvv 


2599 




UUU'Ul 








BR 

or\ 


2600 


00t33D 


ni nn i 3 
UlUUlc 






3 J) • 


MOV 


2601 


0Qfc33? 


ni oom 
□lccUJ 








NOV 


2602 


00£>334 


□cUUUJ 








CMP 


2603 




nn i un i 
001401 








DCQ 


2604 


□06340 


i nuunn 








HLT 


2605 


006342 

wwww iu 


UUbr 4c 






6S: 


TST 


2606 


006344 


UUU' /l 








BR 


2607 


□06346 


nnnnnn 
UUUUUU 






.EXTAD: 


.U0RD 


2608 












.SBTTL 


2609 












.SBTTL 


2610 










: ROUTINE TO RE. 


2611 


006350 


ni oenn 
UlcbUU 






REL0C: 


MOV 


2612 


006352 


ni tens 
UI ibUc 








NOV 


2613 


006354 


UlUcUd 








NOV 


2614 


006356 


nt37n3 


n 1 777C 

Ul f f f b 






ADD 


2615 


006362 


ni 3737 

UlCf Jf 


nncu33 
UUbMJc 


nnnnnu 

UUUUUB 




NOV 


2616 


006370 


r^icnnu 

UUbUlH 








CLR 


2617 


006372 


nnc73*j 

UUbr CO 








TST 


2618 


006374 


ni onoo 
UlcUcc 






IS: 


MOV 


2619 


006376 


nonon3 








CNP 


2620 


006400 


rmi 37c 
UUi J/b 








BNE 


2621 


006402 


011503 








MOV 


2622 


006404 


020203 






2$: 


CNP 


2623 


006406 


001413 








BEQ 


2624 


006410 


024042 








CNP 


2625 


006412 


001774 








BEQ 


2626 


006414 


005703 








TST 


2627 


006416 


001403 








BEQ 


2628 


006420 


104400 








HLT 
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PC.SRESTR 
35 

•1&0000.R3 
3S 

R3.R2 
•6,R0 

R4 
R3 

R0,2$ 

PC,LDNN0 

R3!aiKIPARl 

•177700.R2 

120000, R2 

4$ 

R3.R2 

jc6nst.ro 

•PRG4.ilTKVEC 
HOO.dlTKS 

aisuR 
ss 

(R2).-(SP) 
PC,02A 
R5 I SPRINT 

I2.SA0RS0 

.EXTftO 

PRG4A 

R0.(R2) 

(RS)+,R3 

R0.R3 

6S 



RESTORE REGISTERS FR0N STACK 

H i vuhuf <e8uired 

GET A0DRESS BITS <15-0> 
SET SHIFT COUNT 
SHIFT 18 BIT A00RESS 
6 PLACES RIGHT 

GO SETUP HEN HGHT 
SET KIPAR1 

CLEAR ADDRESS BITS <15-6> 
SET ADDRESS REGISTER 
GO TO 4S 

SET ADDRESS REGISTER 

GET USER CONSTANT 

SET KEYBOARD INTERRUPT VECTOR 

SET IE BIT IN KEYBOARD CSR 

CHECK SWITCH 0 

BRANCH IF NOT SET 

PUSH DATA TO BE TYPED ONTO STACK 

GO TYPE DATA 

GO TO PRINT ROUTINE 

STEP ADDRESS 



; WRITE USER CONSTANT INTO ADDRESS 
;GET DATA MP1TTEN 
CHECK DATA 



-<R2) 
SS 

PROGRAM SUBROUTINES 
RELOCATION ROUTINES 
0CATE PROGRAM CODE 



; REPORT ERROR 
RESTORE AD0RESS 
LOOP BACK 

CONTAINS EXTENDED ADDRESS BITS 



(RSH.R0 
(RS).te 
R2.R3 
•17776.R3 
•4S,3IERRVEC 
R4 

(R3)+ 

(R0)+.(R2)+ 

R2 f R3 

1J 

(R5).R3 

R2,R3 

5S 

-(R0),-(R2) 

2J 

R3 

3$ 



;GET FROM ADDRESS 
•GET TO AD0RESS 

;H0VES 4K 
SET TINE OUT TRAP 

CLEAR RELOCATION SUCCESSFUL INDICATOR 
CHECK IF NENORY IS AVAILABLE 
RELOCATE 

RELOCATION C0NPLETE' 



; BRANCH IF DONE 

•CHECK THAT DATA UAS RELOCATED PROPERLY 
; CHECK IF RELOCATING BACK TO 000000 
; ERROR! CANNOT RELOCATE PROGRAM CODE 



TEST DDQA8-A 0-124K MEMORY EXERCISER 
DDQA6A.P11 RELOCATION ROUTINES 
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2629 

2£>30 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2636 

2639 

2640 

2641 

2642 

2643 

2644 

264S 

26% 

2647 

2646 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 

266S 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2676 

2679 

2680 

2681 

2682 

2683 

2684 



006422 000000 
006424 000767 
006426 000000 



006430 
006432 
006434 
006436 
006440 
006444 
0064% 



000777 
022626 
005104 
000240 
012702 
061502 
012512 



006450 000205 



006452 
006456 
006464 
006470 
006472 
006474 
006476 
006504 
006510 
006514 
006520 
006522 
006524 
006530 
006532 
006536 
006542 
0065% 
006552 
006556 
006560 
006562 
006566 



006570 
006574 
006600 
006602 
006604 
006606 
006610 
006612 
006616 
006620 



012700 
012737 
062700 
000261 
005710 
103373 
012737 
162700 
010067 
004567 
000000 
000000 
004567 
012403 
0167% 
062716 
004767 
011667 
066706 
012716 
000000 
066716 
000207 



010067 
012700 
010120 
010220 
010320 
010420 
010520 
004567 
007000 
005027 



000754 



3S: 

4$: 
55: 



000006 
177630 



172230 

177764 
012460 
173174 
000006 
177744 



177734 



000170 
006766 



172142 



HALT 
6R 

HALT 

8R 

CMP 

COM 

NOP 

MOV 

AOO 

MOV 

RTS 



2S 



(SP)+,(SP)+ 
R4 

»REL0CF,R2 

(R5),R2 
(R5)*,(R2) 



;T0 UPPER MEMORY BANK PROPERLY 

; CONTINUE RELOCATING AT YOUR PERIL 
ERROR! CANNOT RELOCATE CODE BACK TO 
•TO 000000 PROPERLY 

; RESTORE STACK PTR 

;GET ADDRESS OF RELOCATION FACTOR 
AOO FACTOR 

; RELOCATED RELOCF NOW CONTAINS RELOCATION 
• FACTOR 

•RETURN, R4s-1 IF NO RELOCATION 



020000 

000006 000004 
020000 



001116 000004 
020000 



;ROUTINE TO RELOCATE PROGRAM CODE FROM ORIGINAL POSITION (0-4K) TO 
iTOP OF MEMORY. 

RELOCP: MOV i20000.R0 :SET UP TO SCAN FOR TOP OF MEMORY 

•ERRVEC+2 , SiERRVEC 



IS: 



2$: 



35: 



MOV 
MOV 
ADD 
SEC 
TST 
BCC 
MOV 
SUB 
MOV 
JSR 

000000 

.WORD 

JSR 

RELOCM 

MOV 

ADD 

JSR 

MOV 

ADD 

MOV 

.WORD 

AOO 

RTS 



•20000.R0 

(RO) 
IS 

SERRTRP.aiERRVEC 
•20000, RO 
R0,2S 

R5,REL0C 

0 

R5, SPRINT 

2S.-(SP) 

•REL24K,(SP) 

PC.02A 

(SP).3S 

2S.SP 

(PC)+,(SP) 

0 

2S f (SP) 
PC 



INCREMENT SCAN ADDRESS 
SET TIME OUT INDICATOR 
CHECK FOR EX I ST ANT MEMORY 
'C WILL BE CLEAR IF MEMORY EXISTS 



ADJUST TO LAST EXISTANT 4K 

PASS RELOCATION ADDRESS TO 

RELOCATE PROGRAM 

FROM AOORESS 000000 

TO LAST 4K BANK 

GO TO PRINT ROUTINE 



PASS TO 02A ROUTINE 

SET UP RESTART AOORESS 

TYPE RESTART ADDRESS 

SAVE RETURN ADDRESS IN 3$ BELOW 

RESET STACK PTR 

GET RETURN ADDRESS 

CONTAINS RETURN PC 

ADJUST RETURN PC 



RELOC ROUTINE 



PARITY ERROR SERVICE ROUTINE 
THIS ROl 

WHEN THE ADDRESS IS LOCATED THE ROUTINE 
TO CONTINUE AFTER THE ERROR PRESS CONTINUE. 
;SAVE RO IN SAVRO 



: WHEN A PARITY ERROR IS DETECTED THIS ROUTINE SCANS MEMORY FOR THE AD- 
DRESS CAUSING THE PARITY ERROR 
HALTS WITH THE ADDRESS+2 IN RO 
!PARSRV:MOV RO.SAVRO 

MOV «SAVR0+2,R0 

MOV R1,(R0)+ 

MOV R2,CR0)+ 

MOV R3,(R0)+ 

MOV R4,(R0)+ 

MOV R5,(R0)+ 

JSR R5 SPRINT 

PARERR 

CLR (PC)+ 



:G0 TO PRINT ROUTINE 

; CLEAR PARITY ERROR INDICATORS 



'Er :CQA8-A 0-124K f€HOR> EXERCISER NACY11 27(732) 
:C3ABA.Pli PARITY ERROR SERVICE ROUTINE 
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2b9S 
2b86 
2687 
2688 
2689 
2b90 
2b9l 
2692 
2b93 
2b 94 
2695 
2b % 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
27% 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
271b 
2717 
2718 
2719 
2720 
2721 



00bb22 
006623 
008624 
006632 
006640 
0G6642 
0066% 
006650 
006654 
006660 

006670 
006672 
006676 
006700 

006702 
006704 
006706 
006712 
006716 
006720 
006724 



006730 
006734 
006736 
006742 
0067% 
006752 
006756 
006760 
006762 



000 



012737 

012737 

005002 

005767 

001407 

004767 

105237 

012737 

012200 

0007T 

110667 

010003 

104400 

000002 
000240 
005067 
012706 
000005 
004767 
000177 



105767 
001363 
016602 
162702 
110667 
004567 
007021 
104400 
000750 



006764 000000 
006766 

i»770 



0067 
006772 
006774 
006776 

007000 
007006 
007014 
007021 
007026 
007034 
007042 



373c 

274: 



I IT! 1 1 



III III 



opopoo 

000000 

005015 
064524 
051117 
116 
052517 
020116 
005015 
0070% 



172100 

000114 



006672 0001 14 
006730 000004 

172104 

000272 
172301 

007244 000250 



177724 



PEFLG: 
PENFLG: 



177710 
000500 

000122 
173432 



177666 

000004 
000002 
177651 
172002 



IS: 
21: 



3S: 



.BYTE 
.BYTE 
MOV 

nov 

CLR 
TST 
BEO 
JSR 
INCB 

nov 
nov 

BR 

flOvR 

nov 

HLT 

RTI 

NOP 

CLR 

NOV 

RESET 

JSR 

JNP 



0 
0 

I2S.3SPARVEC 
•4S.3IERRVEC 

R2 

nnavA 
is 

PC.LOnno 

5i£lPQR0*i 

mnRBTo.atnnvEC 

(R2)*,R6 

is 

SP, PEFLG 
R0.R3 



PEFLG 
•STKPTR.SP 

PC..nANF 
3PERSTRT 



;N0T 0/0 =PAR ERR/NO PAR ERR 

|NOT 0/OsPAR EW* DETEC^/NOT^OETECTEO ON SCAN 

•SET TIME OUT TRAP VECTOR 

CHECK IF MEH nGMT IS AVAILABLE 
BRANCH IF NOT AVAILABLE 

set up ten ncrrr 

ALLOW FULL 4K PAGE ADDRESSING 
SET HEN nGflT ABORT TRAP VECTOR 
SCAN ALL AOORESSES 

SET PARITY ERROR FOUND INDICATOR 

PARITY ERROR! ADDRESS+2 IS IN R2 DATA 
IS IN RO 
CONTINUE SCAN 

INSERT HALT INST TO EXAMINE PARITY RE1S 
CLEAR PARITY ERROR INDICATORS 
RESET STACK PTR 

GO ENABLE PARITY ERROR DETECTION 
RESTART SELECTED PROGRAM 



SERVICE ROUTINE IF PARITY ERROR NOT DETECTED ON SCAN 



TSTB 
3NE 

nov 

SUB 

novB 

JSR 

NOFIND 
HLT 
BR 



PEFLG 
3S 

4(SP),R2 
•2,R2 
SP PENFLG 
R5, SPRINT 



3S 



;THE BELOW 6 WORDS CONTAINS THE 
PARITY ERROR OCCURRED 



; BRANCH IF PARITY ERROR WAS 
DETECTED ON SCAN 
GET PC AT TINE OF ERROR 

'back it up 

•set i no = no par error detected on scan 
;g0 to print routine 

; error! parity error not detec t ed on scan 

SAVED CONTENTS OF R0-R5 WHEN Ttf 



SAVRO 
SAVR1 
SAVR2 
SAVR3 
SAVR4 
SAVR5 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 

c 

0 



040520 
042440 
005015 
052117 
042116 
041523 
000 



044522 
051122 
000 
043040 
047440 
047101 



PARERR: .ASCIZ <15><12> 'PHITY ERROR' < 15>< 12> 
NOFIND: .ASCIZ 'NOT FOUND ON SCAN , <15><12> 



.EVEN 



;ROUTINE TO ENABLE PARITY ERROR ACTION ON HA/ttF , PARITY ^nORIES 

PARCSR=172100 ;ADORESS OF FIRST PARITY REGISTER _ 

PARVEC=114 PARITY ERROR INTERRUPT VECTOR ADDRESS 



T ES T X0A8-* 0-12***. MEMORY EXERCISER HACYll 27(732) 
DOQABA.P11 PARITY ERROR SERVICE ROUTINE 
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2741 
2742 
2743 
27MH 

27M5 
27% 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
27SM 
2755 
2756 
2757 
2758 
2759 
2760 
2761 

2762 
2763 
276H 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
27BM 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 

2795 
27% 



0070% 
00709* 



007104 
007110 
007114 
007116 



007120 
007122 
007126 
007130 
007134 
007136 
007140 
007144 



0071% 
007150 
007154 
007156 
007164 
007172 
007176 
007204 
007212 
007216 
007224 
007232 
007240 
007242 



00724 4 
007250 
007256 
00726 2 
007266 
007274 



007276 
007302 
007310 
007312 
007316 
007324 
007326 
007326 
007332 



032737 
001033 

W" 

012700 
OH 



007OS6 0137% 000004 
007062 012737 OoOOub 

m m m 



000000 



000262 
012720 
102402 
050267 



012637 
000207 



000240 
005767 
001432 
012737 
012737 
005037 
012737 
012737 
00 5037 
012737 
012737 
012737 
000240 
000207 



012702 
062737 
013716 
005037 
012737 
000002 



012702 
162737 
001406 
013716 
012737 
000002 

005037 
3S27bfc 



000040 177570 .HAMF: BIT 

BNE 
MOV 

000004 MOV 
0O011M MOV 
000116 MOV 
172100 MOV 
000001 MOV 

CLR 

PARAVA: .WORD 




CHECK 



F PARITY ERROR DETECTION IS TO 
BRANCH IF NOT TO BE ENABLED 
TRAP VECTOR 

T TIME OUT TRAP TO RETURN (VIA P'l 



•340,* •*« 
•PARCSR.RO 




PA«SRV.JlPARVEC -SET PARITY ERROR TRAP VECTOR 

40.S|PARVEC*2 ; PRIORITY LEVEL 7 ON TRAP 



0000C1 
1777b2 

000004 



171576 

077006 
077406 
172304 
000000 
077406 
172340 
000200 
007600 
000001 



020000 
000200 
177576 
177572 
000001 



040000 
000200 

17757b 
000001 



177572 
0C0C02 



(PC)* 



•GET FIRST AOORESS OF PARITY REGISTER 

; CLEAR AVAILABILITY INDICATOR 
; CONTAINS AVAILABILITY INDICATOR 



is 



ENABLE ALL AVAILABLE PARITY REGISTERS 



SEV 
MOV 
BVS 
BIS 
ASL 
BCC 
MOV 

D I SPAR: RTS 



2S 



•1,(R0)+ 
21 

R2, PARAVA 

(SP)*,3»£RRVEC 
PC 



t TIME OUT INDICATOR 
;SET ACTION ENABLE IF AVAILABLE 
BRANCH IF NO PARITY AVAILABLE 
;SET AVAILABLITY INDICATOR 
; SHIFT INDICATOR 

{RESTORE ERROR TRAP VECTOR 
; RETURN 



172300 
172302 

17234M 
172316 

172342 
172356 
177572 



172342 
177572 

172342 
177572 

000CC2 



.SBTTL MEM MGHT ROUTINES 
: ROUTINE TO INITIALIZE MEMORY MANAGEMENT REGISTERS 
LDMMO: NOP 

NMAVA 
IS 

•177*256. -400HJP+RH, 3*IPDR0 
•200gS6.-400*UP*RH.3«KlPDRl 

•200*256. -400*UP*RU, 38KIPDR7 
3SKIPAR0 
•20Q.3iKIPARl 
•7600.3JKIPAR7 

•1,3«SR0 ; ENABLE MEM MGMT 



IS: 



TST 
BEO 
MOV 
MOV 
CLR 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
NOP 
RTS 



;SET KIPDROsRk UP 177 BLOCKS 
;S£T KlPORlsRU UP 2X BLOCKS 



:=ET KIS>CR7=RU JF 20C SLOCKS 



PC 



MEMORY MANAGEMENT J$QRJ_ROUTINE FgR^HRJTE UP 



MMABTO: MOV 
ADO 
MOV 
CLR 
MOV 
RTI 



•20000.R2 
•200.3klPARl 
3JS^,(SP) 

•1.3«SR0 



ADVANCE TO NEXT HK 
RETURN TO INSTRUCTION 
DISABLE MET MGHT 
ENABLE HEM MGHT 
CAUSED THE ABORT 



tha" 



:MEM MGMT ABORT SERVICE FOR WITE DOWN 
MMABT1: MOV •40000.R2 ; RESET R2 

•200,3lKIPARl 
2S 

a»SR2.(SP) 

•1,3«SR0 : ENABLE MEM MGMT 



2S: 



SUB 
BEG 

MOV 
MOV 
RTI 



CLR 
BIS 



a«SR0 

•V,2t'SPi 



; DISABLE MEM MGHT 



T EST DOQAB-A 0-I24K r£NO*Y EXERCISER 



D00A8A.P11 



mem wsmt ROUTINES 
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2804 
2805 
2906 
5807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2813 
2820 
2821 
2822 
2823 
282M 
2825 
2826 
2827 
2828 
2823 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 

CO*" 

2845 
28% 
2847 
2848 
2849 
2850 

sesi 



007340 000002 




007366 
007 3 7 2 
007374 
007376 
007402 
007406 
007412 



00742 
007432 
007436 
007444 
007452 



007454 
007456 
007462 
007470 
007476 
007502 
007510 



006002 
006002 
006002 

7 

004767 
000302 
006002 

Olf — 



010237 
012737 
012737 
005037 
012702 
012737 
012737 
000207 



000240 
012702 
062737 
062737 
013716 
012737 
000002 



17140C 



177554 



172344 
000200 
1723% 
077406 
077406 
172310 
040000 
007454 
000001 



040000 
000400 
000400 
177576 
000001 



RTI 

: ROUTINE TO 
STMN2: TST 

W 

BNE 

ROR 
ROR 
ROR 
ROR 
RTS 



IS: 



172304 
172306 



000250 
177572 



172344 
172346 

177572 



2S: 



SET UP MEMORY MANAGEMENT FOR PATTERN TESTS m 
R2 ;CHECK IF TESTING BANK • 0 

2S ;EXIT IF BANK • 0 

MMAVA 

IS ; BRANCH IF MEM MGMT AVAILABLE 

R2 ; ADJUST ADDRESS 

R2 
R2 
R2 

PC ; RETURN 

JSR PC.LDMMO ;G0 MAKE INITIAL SET JP 

SWAB R2 

ROR R2 

MOV R2.3tKIPAR2 

ADD 1200, R2 

MOV R2.aklPAR3 

MOV •200*256.-400+UP+RU. 31KIPDR2 ;SET KIF 

MOV 1200*256. -400+UP+RW.31KIPDR3 ;SET KIF 

CLR 91KIP0R4 

MOV t40000.R2 

MOV •MMABTe.dtMMVEC 

MOV tl.SlSRO ; ENABLE MEM MGMT 

RTS PC 



;SET KIPDR2=RW UP 200 BLOCKS 
;SET KIPDR3=RW UP 200 BLOCKS 



: ROUTINE TO SERVICE 8 XOR 13 ABORTS 
HMABT2: NOP 

•40000.R2 
•400.a&KIPAR2 
SHOO 3tKIPflR3 

•! S 5lSR0 P) ;§EL.RETURN ^INSTRUCTION THfi' ABORTED 



MOV 
ADD 
ADO 
MOV 
NOV 
RTI 



•ENABLE HEM MGMT 



•CALL 



SBTTL 1 XOR 8 ROUTINES 
E 1 XOR 8 WORST 
BANK l,-(SP) 



; ROUTINE* TO WRITE 1 XOR 8 WORST CASE NOISE WT TERN 



007512 


016603 


000002 


.1X8: 






000004 








177614 




007526 


012700 


177777 


IS: 


007532 


010005 






007534 


005105 






007536 


005100 




2S: 


007540 


005105 






007542 


012704 


0000 1C 


3S: 


0075% 


010022 




007550 


010522 






007552 


010022 






307SS4 


010522 







MOV 

MOV BLKCNT.-(SP) 

JSR PC,. 1X8 

MOV 2(SP),R3 

MOV 4(SP).R2 

JSR PC.STMM2 

MOV 1-1. RC 

MOV R0,R5 

COM R5 

COM RO 

COM R5 

MOV I8..R4 

MOV R0,(R2H 

MOV R5,(R2>* 

MOV R0,(R2H 

MOV RS.CR2)* 



;PUSH STARTING BANK • ON THE STACK 
;PUSH 128. WORD BLOCK COUNT ON THE S'^Ck 



GET I OF 128. WORD BLOCKS TO WRITE 
GET STARTING BANK I 
GO SET UP MEM MGMT 
SET UP DATA REGISTERS 



:SET 128. WORD COUNTER 
;URITE 128. WORDS 



T E5' DDMB-A 3-124K MEHORY EXERCISER 
03GABA.P11 1 XOR 8 ROUTINES 




2861 
2862 
2863 
2864 
2865 
2366 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
287*3 
2880 
2881 
2882 
2883 
2884 
2885 



2889 
2890 
2891 
2882 
2893 
2894 
2895 
28% 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2937 
29C6 



007556 
007560 
007562 
007564 



007572 
007574 

007576 
007600 
007602 
007604 

007606 
007610 
007612 
007614 
007616 
007620 
007622 



CI 0022 
010522 
010022 
010522 

oi ooff 

010522 

010022 
010522 
010022 
010522 

005304 
001356 
005303 
001350 
C12616 
012616 
000207 



riACYll 27(732) 



H0V 

nov 
nov 
nov 

nov 
nov 
nov 
nov 

nov 
nov 
nov 
nov 

DEC 
BNE 
DEC 
BNE 

nov 
nov 

RTS 



E06 
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R0.CR2)* 
R5,(R2H 
R0,(R2)+ 
R5,(R2H 

RQ,(R2)+ 
RS (R2)+ 
R0,(R2)4 
R5,(R2)+ 

R0,(R2)+ 
R5.(R2)* 
R0,(R2)- k 
R5.(R2)* 

R4 
35 
R3 
21 

(SP>*.(SP) 
(SP)*,(SP) 
PC 



;DECREttENT 128. WORD COUNTER 
; DECREMENT BLOCK COUNT 
; ADJUST STACK 
; RETURN TO CALLER 



ROUTINE TO CHECK 1 XOR 8 PATTERN URITTEN ABOVE 



CALL: 



007624 


000240 




..1X8 


007626 


004767 


002120 




007632 


016667 


000002 


171116 10S: 


007640 


016602 


000004 




007644 


004767 


177472 




007650 


005000 




11: 


007652 


005767 


171066 




007656 


100401 






007660 


005100 






007662 


012705 


000040 


25: 


007666 


005100 




35: 


007670 


012203 






007672 


020003 






007674 


001403 






007676 


0050% 






007700 


004767 


17127C 




007704 


005100 






007706 


012203 






007710 


020003 






007712 


001403 






007714 


005046 






007716 


004767 


1712C2 





NOV BANK l,-(SP) 
nOV BLKCNT.-(SP) 
JSR PC,.. 1X8 



JSR PC.CKSMR 

flOV 2(SP), COUNT 

NOV 4(SP).R2 

JSR PC.STW2 

CLR RO 

TST ICOUNT 

BNI .+4 

con RO 

nOV 132., R5 

con ro 

nOV (R2)*,R3 

CNP R0.R3 

BEQ .♦iO 

CLR -CSP) 

JSR PC, ERROR 



con RO 

nOV (R2H.R3 

CttP R0.R3 

BEQ .+10 

CLR ~(SP) 

JSR PC, ERROR 



;PUSH STARTING BANK t ON THE S'AC/ 
;PUSH 12B. WORD BLOCK COUNT ON. a'ACf 



;C0 CHECK SWITCH REGISTER 
;GET BLOCK COUNT 
;GET STARTING BANK t 
; GO SET UP HEN HGHT 
CLEAR TEST WORD 

; IF BIT 15 OF ICOUNT =1 THEN =m"E=n 

;SET 128. WORD COUNTER 

;GET TEST DATA 

{COMPARE WITH CHECK WORD 

;PUSH FAKE STATUS ON THE STACK 
; ERROR! MEM DATA CR3) NOT = TEST Ch'A 
(RO), ADDRESS=(R2)-2 



;GET TEST DATA 

: COMPARE WITH CHECK WORD 

;PUSH FAKE STATUS ON THE STACK 

: ERROR! MEM DATA ^R3) NO' = T EST M*S 

;(R0). ADDRESS=iR2)-2 



'ES~ DMAB-A 0-124K MEMORY EXERCISER 
:CCWW.P11 1 XOR 8 ROU T INES 



MACY11 27(732) 



2909 
2910 
2911 
2912 
2913 
2914 
2915 
291b 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 

30UC 

2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
295b 
2957 
2958 
2959 
29bO 
29b I 
29b2 
29b3 
29b- 



007722 
007724 
00772b 

8o773? 
007734 



007740 
007742 
007744 
0077% 
007750 
007752 



00775b 
QQ7760 
00776 2 
007784 
007770 

00777b 
010002 
010010 
010014 
01001b 
010022 
010024 
01002b 
010C30 
010032 
010034 
01003b 
010042 
010044 
010050 
010052 
010054 
01005b 



005100 
012203 
020003 



OlOObO 
0100b4 
01U070 
010072 
010074 
01007b 
010102 



QQ1403 

00504b 

0047b7 171234 



005100 
012203 
020003 
001403 
0050% 

0047b7 17121b 



005305 
001342 
005100 

0053b7 1707bb 
001334 

01bb02 000004 
004787 177340 
01bbb7 000002 17074b 
008387 170730 
102308 

012705 000040 

005122 

005122 

005122 

005122 

005305 

001372 

005387 170714 
001385 

005787 170b74 

001270 

01281b 

012816 

000207 



COM 
MOV 
CMP 

JSR 



COM 
MOV 
CMP 
BEQ 
CLR 
JSR 



DEC 
BNE 
COM 
DEC 
BNE 
MOV 
JSR 
MOV 
ASL 
BVC 
MOV 
COM 
COM 
COM 
COM 
DEC 
BNE 
DEC 
BNE 
TST 
BNE 
MOV 
MOV 
RTS 



.S8TTL 
ROUTINE TO WRI 
CALL: MOV 

MOV 

JSR 



45: 



SOS: 
55: 



01bb02 000004 
0047b7 177252 
005000 
010003 
005103 

0057b7 I732b0 
001402 



.3X9: 



:1C124 012700 000401 



MOV 
JSR 
CLR 
MOV 
COM 
TST 
BEQ 

MOV 
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RO 

(R2H.R3 
R0.R3 

PC, ERROR 



RO 

(R2)+,R3 
R0.R3 

>Io 

-(SP) 
PC, ERROR 



;GET TEST DATA 

; COMPARE WITH CHECK WORD 

;PUSH FAKE STATUS ON THE STACK 

; ERROR! MEM DATA (R3) NOT = TEST DhTA 

;(R0), ADDRESSs(R2)-2 



GET TEST DATA 

COMPARE WITH CHECK WORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! MEM DATA (R3) NOT = TEST DATA 
(RO). ADDRESS=(R2)-2 

DECREMENT 128. WORD COUNTER 

COMPLEMENT CHECK WORD 
DECREMENT BLOCK COUNT 

GET BANK • 

GET I OF 128. WORD BLOCKS TO COMPLEMENT 



; COMPLEMENT PATTERN 



RS 
35 
RO 

COUNT 
25 

4(SP).R2 
PC.STMM2 
2 (SP), COUNT 
ICOUNT 
10S 

132., R5 

(R2)l 
(R2) + 
(R2)+ 
(R2)+ 
R5 
55 

COUNT 
505 
ICOUNT 
105 

(SP)+,(SP) 
(5P)+,(SP) 
PC 

3 XOR 9 ROUTINES 

TE 3X0R9 HORST CASE NOISE TEST PATTERN 
BANK t,-(SP) ;PUSH STARTING BANK I ON STACK 
BLKCNT!-(SP) PUSH 256. WORD BLOCK COUNT ON S'mC* 
PC,. 3X9 ;CALL ROUTINE 



4(SP),R2 
PC,STMM2 
RO 

R0,R3 
R3 

PARPAT 
IS 

•401.R0 



;GET STARTING BANK • 



:R0 (0) AND R3 (-1) IS THE DATA WRI T T£N 
; BRANCH IF PARITY MEMORY PATTERN IS 
I NOT TO BE WRITTEN 

; WRITE PARITY 3X9 PATTERN 



T EST DCQAB-A 0-124K MEMORY EXERCISER 
DDQABA.Pll 3 XOR 9 ROUTINES 



GOfe 
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2%S 


010110 


012704 


000020 


2%S 








2%7 


Q1Q11H 


010022 




2%8 


010116 


010022 




2%9 


010120 


010022 




2970 


010122 


010022 




2971 




010322 




2972 


010124 




2973 


010126 


010322 




2974 


010130 


010322 




2975 


010132 


010322 




2976 
2977 








010134 


010022 




2978 


010136 


010022 




2979 


010140 


010022 




2980 


010142 


010022 




2981 








2982 


010144 


010322 




2983 


0101% 


010322 




298M 


010150 


010322 




2985 


010152 


010322 




2986 








2987 


010154 


005304 




2988 


010156 


001356 




2989 


010160 


005100 




2990 


010162 


005103 


173172 


2991 


010164 


005767 


2992 


010170 


001402 




2993 








2994 


010172 


004767 


000014 


2995 


010176 


005366 


000002 


29% 


010202 


001342 




2997 


0102G4 


012616 




2998 


010206 


012616 
00020 / 




2999 


010210 




3000 








3001 








3002 








3003 


010212 


032702 


000010 


300M 


010216 


001404 




3005 


010220 


032702 


00100C 


3CQ& 


010224 


00 1404 





IS: 
2$: 



35: 



MOV 

MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 

DEC 
BNE 
COM 
COM 
TST 
BEO 

JSR 
DEC 
BNE 
MOV 
MOV 
RTS 



•16., R4 



RO 
RO 
RO 
RO 

R3 
R3 
R3 
R3 

RO 
RO 
RO 
RO 

R3 
R3 
R3 
R3 



(R2) + 
(R2) + 
(R2) + 
(R2) + 

(R2) + 
(R2) + 
(R2) + 
(R2) + 

(R2) + 
(R2!* 
(R2H 
(R2) + 

(R2) + 
(R2) + 
(R2) + 
(R2) + 



R4 
21 

RO 
R3 

PARPAT 
3$ 

PC..X0R39 

2C5P) 

IS 

(SPH,(SP) 
(SP)+ (SP) 
PC 



;EACH LOOP WRITES 256. WORDS 



; BRANCH IF PARITY MEMORY PATTERN IS 
; NOT TO BE WRITTEN 

;G0 GET CONSTANTS 

; DECREMENT 256. WORD BLOCK COCfT 

; ADJUST STACK 



; ROUTINE TO SET CONSTANTS FOR WRITING/CHECKING 3 XOR PATTERN u! T * 
•PARITY 

!X0R39:'BIT tlO.R2 ; CHECK BIT 3 

BEG .3150 ; BRANCH IF BIT 3=0 

.3IS1: BIT 11000. R2 : CHECK BIT 9 

BEG .3N0T9 ; BRANCH IF BIT 9 =0 



•ES* DCGAB-A 0-12MK MEMORY EXERCISER 

ODQABA.Pll 3 XOR 9 ROUTINES 

3007 010226 OOOM07 

3008 010230 032702 001000 
30OT 010234 001404 

3010 010236 005767 170502 

3C1I 010242 100004 

3012 010244 100410 

3C13 010246 005767 170472 



MflCYll 27(732) 



BR 

.3IS0: BIT 
BEQ 

.3N0T9: TST 
BPL 
BMI 

.3IS9: TST 
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-3IS9 

I1000,R2 ;CHECK BIT <3 

.3IS9 ; BRANCH IF 0 

ICOUMT ;CHECK IF NORMAL OR COMPLEMENT DATA 

LOCOMP GO LORD COMPLEMENT CONSTANTS 

LDNORM GO LOAD NORMAL CONSTANTS 

ICOUNT CHECK IF NORMAL OR COMPLEMENT DA T A 



T E5T DC0A8-A 0-124K MEMORY EXERCISER 
DD0A8A.P11 3 XOR 9 ROUTINES 



3014 
301S 
3016 

Sii 

3019 
3020 
3021 
3022 
3023 
3C2M 
2ZZS 



01 0252 10000S 

010254 012700 177777 

010260 012703 000401 

000401 

010272 012703 177777 
010276 000207 



MACY11 27 i 732) 



BPL 

LDCONP: MOV 
MOV 
RTS 

LDNORM: MOV 
MOV 
RTS 



IOb 

10-SEP-76 10:35 PAGE 73 



LDNORM 
•-1.R0 
•401, R3 
PC 

•401.R0 
•-1.R3 

PC 



;G0 LORD NORMAL CONSTANTS 
;SET COMPLEMENT CONSTANTS 



IRN 

NORMAL CONSTANTS 



ROUTINE TO CHECK 3 XOR 9 WORST CASE NOISE PATTERN 
CALL: MOV BANKI.-(SP) ;PUSH STARTING BANK I ymu 
MOV BLKCNT.-(SP) AND 256. UORD BLOACK CO'JN' 
JSR PC... 3X9 ;CALL ROUTINE 



ONT' 



T EST DDOAB-A 0-12HK MEMORY EXERCISER 
DDQA8A.P11 3 XOR 9 ROUTINES 



302b 

Q1030I 0D4rb* 001444 



5! 8$ 88889 



JOB 

MflCYll 27(732) 10-SEP-7b 10:35 PAGE 74 



..3X9: NOP 

JSR PC.CKSUR ;G0 CHECK SUITCH REGISTER 

: CHECK WORST CASE PATTERN 



KOb 

T E5" OOQAB-A 0-124K MEMORY EXERCISER MRCY11 27(732) 10-SEP-75 10:35 PAGE 75 
OOtWBfl.Pli 3 XOR 9 ROUTINES 

3C31 21330b 015504 000002 IS: MOV 2(SP),R4 ;GET 255. BLOCK UORO COUNT 



T EST DOOAB-fi 0-1 2MK MEMORY EXERCISER 
OOQABA.Pl! 3 XOR 9 ROUTINES 

3032 010312 01bfa02 30000H 



LOB 

MfiCYll 27(732) 10-SEP-7& 10:35 PAGE 7b 

MOV H(SP),R2 ;GET FIRST BANK I 

s 



TEST DDGA8-A Q-124K MEMORY EXERCISER 
DDQABA.P11 3 XOR S ROUTINES 

3033 01031b 004767 177020 

3034 010322 005000 

3035 010324 0057b7 170414 



MOb 

MflCYll 27(732) 10-SEP-7b 10:35 PAGE 77 

JSR PC , STMM2 ;G0 SET UP MEM MGMT 

CLR RO ;SET CHECK WORD 

TST ICOUNT ;IF ICOUNT IS NEG AM CHECKING COMP- 



TEST ODQAB-A 0-1 24K MEMORY EXERCISER 

DDQABA.P11 3 XOR 8 ROUTINES 

3036 010330 100001 

3037 010332 005100 

3038 010334 012705 000100 
3039 

3040 010340 0057&7 173016 

3041 010344 001402 



NOb 

10-SEP-7& 10:35 PAGE 78 



.+4 ; LEMENTED PATTERN 

RO ;S0 COMPLEMENT CHECK UC 

•64., RS SET 256. UORO COUNTER 



PARPAT ; BRANCH IF PARITY MEMORY PATTERN IS 

30$ -NOT TO BE CHECKED 



'EST DDGAB-k 0-1 24K MEMORY EXERCISER 
D0GA8A.P11 3 XOR 9 ROUTINES 



B07 



NACYH 27i732) 10-SEP-76 10:35 PAGE 79 



3042 
2*3 
3044 
30% 

30% 
3047 

3048 
3049 



;i 

3052 
3053 
3054 
3055 
305b 
3057 



3053 
3060 

81 

3063 
3064 
30b5 
3066 
3067 
3066 
3069 
3070 
3071 
3072 
X73 
3074 
3075 
3076 
307 7 
3078 
3079 
3080 
3081 
3082 



3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
2C% 
2Q«7 



OK 
01C 
010352 
010354 
010356 
010360 
010362 



010366 
010370 
010372 
010374 
010376 



010402 
010404 
010406 
010410 
010412 



010416 
010420 
010422 
010424 
010426 



010432 
010434 
010436 
010440 
010442 
010444 

0104% 
010454 
010456 
010%4 
010470 



010474 
010476 
010502 
010504 
010506 
010512 
010516 
010522 
010524 
210530 



004767 177640 

012203 
020003 
001403 
0050% 

004767 170606 



012203 
020003 
001403 
0050% 

004767 170572 



30S: 



012203 
020003 

W403 



004767 170556 



012203 
020003 
001403 
0050% 

004767 170542 



005100 
00 53 0 5 
001340 
005100 
005304 
001333 

032737 040000 177570 
001314 

016667 000002 170272 
016602 000004 
004767 176646 



005000 

005767 170242 

100001 

005100 

012704 000100 

012705 000004 
005767 172640 
001402 

004767 17746,2 
012203 



40$: 



JSR 

HOV 
CMP 
BEQ 
CLR 
JSR 



MOV 
CMP 
BEQ 
CLR 
JSR 



MOV 
CMP 

CLR 
JSR 



MOV 
CMP 

SI 

JSR 



COM 
DEC 
BfC 
COM 
DEC 
BNE 

BIT 
BNE 
MOV 
MOV 
JSR 



PC..X0R39 

(Rc)*,R3 
R0.R3 

.♦io 

-(SP) 
PC .ERROR 



(R2)+,R3 
R0.R3 
.♦*0 
-<SP) 
PC, ERROR 



(R2)+,R3 
R0.R3 

PC, ERROR 



(R2)*,R3 
A0.R3 
.♦10 
-(SP) 
PC, ERROR 



RO 
RS 
31 
RO 
R4 
2$ 

§40000, its* 
it 

2(SP), COUNT 

4(SP)!R2 

PC,STHH2 



,G0 GET CONSTANT 

GET TEST DATA 

COMPARE UITH CHECK WORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! MEM DATA <R3) NOT = TEST DATA 
(RO), AD0RESS=(R£)-2 

GET TEST DATA 

COMPARE UITH CHECK WORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! HEM DATA (R3) NOT = TEST OATfi 
(RO), ADDRESS=(R2)-2 

GET TEST DATA 

COMPARE WITH CHECK UORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! HEM DATA (R3) NOT = TEST DATA 
(RO), A00RESS=(R2)-2 

GET TEST DATA 

COMPARE UITH CHECK WORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! HEM DATA (R3) NOT = TEST DGTh 
(RO), A00RESS=(R2)-2 



; COMPLEMENT CHECK UORD 

; DECREMENT 256. UORD COUNTER 

; COMPLEMENT CHECK UORD 
; DECREMENT BLOCK COUNTER 



LOOP ON TEST* 

BRANCH IF LOOP ON TEST DESIRED 
GET • OF 256. UORD BLOCKS TO CHEC 
GET STARTING BANK t 
GO SET UP HEM HGMT IF REOUIRO 



; CHECK UORST CASE BIT COMPLEMENT PATTERN 



4$: 
SS: 



feOi: 



CLR 
TST 
BPL 
COM 
MOV 
MOV 
TST 
BEQ 
JSR 
MOV 



RO 
I COUNT 
.♦4 
RO 

•64.. R4 
•4 A R5 
PARPAT 
60S 

PC..X0R3S 
(R2)+,R3 



; CHECK IF COMPLEMENT PATERN 

; COMPLEMENT CHECK UORD 
SET 256. UORD COUNTER 
;SET 4 UORD COUNTER 
; BRANCH IF PARITY MEMORY PATTERN 15 
;NOT TO BE CHECKED 

;GET DATA 



T EST DDOAB-A 0-124K MEMORY EXERCISER 
DOQA8ATP11 3 XOR 9 ROUTINES 



3098 
3099 

31" 
31 
31 

3103 
3104 
3105 
3108 
3107 
3106 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
311b 
3117 
3116 
3119 
3120 
3121 
3122 
3123 
312M 
3125 
312b 
3127 
3126 
2129 
2130 
2131 



OlOblH 
010620 
010624 
010630 
010636 
010640 
010644 
0106% 
010652 
010654 
010660 
010662 



020003 
001403 




1343 
005100 
005367 
001335 

016602 
004767 
016603 
032737 
001307 
006367 
102220 
012705 
011200 
016204 
110422 
110422 



170430 



170410 
17777b 



170144 

000004 
17651b 
000002 

040000 177570 

170100 

000040 

0C0Q1C 



C07 

10-SEP-7b 10:35 PAGE 80 



R0.R3 

.*lo 

-(SP) 
PC, ERROR 
RO 

-<R2) 

(R2)+,R3 

R0.R3 

•+ l S 

-(SP) 
PC, ERROR 
RO 

-2(R2) 

R5 

bS 

RO 

RH 

51 

RO 

COUNT 
41 

4(SP).R2 
PC.STHM2 
2<klA R 3 

•40000, aisws 

401 

ICOUNT 
IS 

•32., RS 

CR2J.RC 
10(R2>,R4 
RM,(R2W 
R4,(R2)* 



;CHEC»< DATA 



; COMPLEMENT CHECK UORO 
COMPLEMENT TEST DATA 
;GET DATA 
; CHECK 

;PUSH FAKE STATUS ON THE STAC/ 

; COMPLEMENT CHECK UORO 

; RESTORE DATA 

; DECREMENT 4 WORD COUNTER 

; COMPLEMENT CHECK WORD 
•DECREMENT 25b. UORO COUNTER 

; COMPLEMENT CHECK UORO 
DECREMENT BLOCK COUNTER 



;GET BANK I 

;GET BLOCK COUNT 

;LOOP ON TEST 

; BRANCH IF LOOP ON TEST 



COMPLEMENT PATTERN 
GET FIRST DATA WORD 
GET FIFTH DA*" i.IHC 
SWAP WORDS 1-4 
WITH 3-8 



T EST DDGA8-A 0-124K HEMOR> EXERCISER 
DDGABA.P11 3 XOR S ROUTINES 



MACY11 27(732) 



D07 

10-SEP-76 10:35 PAGE 81 



3132 

3133 

3134 

3135 

3136 

3137 

3138 

3138 

3140 

3141 

3142 

3143 

3144 

3145 

31% 

3147 

3148 

3148 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3158 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3168 

3170 

3171 

3172 

3173 
3174 

3175 
3176 
3177 
317B 
3178 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
21S7 



010664 
010666 
010670 
010672 
010674 
010676 
010700 
010702 
010704 
010706 
010710 
010712 
010714 
010716 
010720 
010722 

oir 

OK 

010730 
01073H 
010736 
010742 
010744 
010746 



010750 
010754 
010760 
010764 
010766 
010772 
010774 
011000 
011002 
011004 
011006 
011010 
011012 
011014 
011016 
011020 
011022 
011024 



110422 
110422 
i 10422 
110422 
110422 
110422 
110022 
110022 
110022 
110022 
110022 
110022 
110022 
110022 
005305 
001353 
005303 
001347 

005767 
001402 
000167 
012616 
012616 
000207 



016604 
016602 
004767 

012705 
005100 
012703 
005100 
010022 
005303 
001375 
005305 
001370 
005304 
001363 
012616 
012616 
000207 



170010 
177344 



MOVB 

i »v v w 


R4 (R2)+ 


MOVB 


R4* (R23* 


MOVB 


R4' (R2)+ 


MOVB 


R4* (R2H 


MOVB 


R4 (R2)* 


MOVB 

1 IV " V 


R4 (R2) + 


MOVB 

1 IV " V 


RO' (R2)* 


MOVB 

1 IV » w 


RO. (R2)+ 


MOVB 


RO. (R2)+ 


MOVB 


RO (R2)+ 


MOVB 


RQ,(R2)* 


nova 


RO, (R2) + 


MOVB 


RO (R2H 


MOVB 


RO t (R2) + 


DEC 


R5 


BNF 


IDS 


DEC 


R3 


BNE 


7S 


TST 


I COUNT 


BEQ 


US 


JMP 


IS 


mov 


(SP)+,(SP) 


MOV 


(SPH.(SP) 


RTS 


PC 



;AND VICE VERSA 



000002 
000004 
176356 

000040 

000200 



US: 



;ROUTINE TO WRITE 8 XOR 13 UORST CASE NOISE TEST PATTERN 

.SBTTL 8 XOR 13 ROUTINES 

; CALL : MOV BANK 1,-(SP) 

; MOV i4KBANKS,-(SP5 

i JSR PC, .8X13 

.8X13: MOV 2(SP),R4 

MOV 4(SP).R2 

JSR PC.STHM2 

2S: Sbv 82., R5 

COM RO 

3S: MOV 1128.. R3 

COM RO 

4$: MOV R0.(R2H 

OEC R3 

BNE 4S 

OEC R5 

BNE 3S 

DEC R4 

BNE 2S 

MOV (SP)*,(SP) 

MOV (SP)VSP) 

RTS PC 



GET BANK COUNT 
GET FIRST BANK I 
GO SET MEM HGMT 

EACH LOOP WRITES 4K WORDS 

EACH SMALL LOOP WRITES 128 WORDS 

WRITE INTO MEMORY ADORESSES 
DECREMENT WORD COUNT 

DECREMENT 128. WORD COUNT 

DECREMENT 4K BANK COUNT 
LOOP UNTIL DONE 
AOJUST STACK 



ROUTINE TO CHECK 8 XOR 13 WORST CASE NOISE TEST PATTERN 
CALL* 

' MOV BANKH.-(SP) ;PUSH FIRST BANK • ON THE STACk tup _ t ._ 
MOV tBANKS,-(SP) PUSH I OF 4K BANKS TO CHECK CN THE sThcK 
JSR PC... 8X13 ; CALL ROUTINE 



'£5 T COQAB-A 0-124K MEMORY EXERCISER 
DD3ABA.P11 8 XOR 13 ROUTINES 



3188 

3188 

3190 

3181 

318? 

3183 

3194 

3195 

31% 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

321b 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3225 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3238 

3237 

3238 

3239 

3240 

3241 

3242 

3243 



011026 
011030 

811040 
011044 
011050 

011056 
011062 
011064 

011070 
011070 
011072 
011074 
011076 
011100 



011104 
011106 
011110 
011112 
011114 



011120 
011122 
011124 
011126 
011130 
011132 
011136 

011140 
011144 
011150 
011154 
011160 
011162 
011164 
011170 
011172 
011174 
011176 
011200 
011202 
011204 
011206 
011212 
011214 
011216 
011220 



000240 

004767 000716 

8166O? 000004 

004767 176272 

016667 000002 167700 

012704 000040 
005100 

012705 000100 



012203 
020003 
001403 
0050% 
004767 



MftCYll 27(732) 



..8X13: NOP 
JSR 



10$: 



1$: 
2J: 



3$: 



170070 



012203 
020003 
001403 
0050% 
004767 



005305 
001362 
005304 
001355 
005100 
005367 
001347 

016602 
004767 
016604 
006367 
001401 
102326 
012705 
005122 
005122 
005305 
001374 
005304 
001370 
005100 
005767 
001312 
012616 
012616 
000207 



170054 



167620 



000004 
176172 
000002 
167564 



004000 



40S: 
4$: 



167532 



MOV 
MOV 
JSR 
MOV 

MOV 
COM 
MOV 



MOV 
CMP 
BEQ 
CLR 
JSR 



MOV 
CMP 
BEG 
CLR 
JSR 



DEC 
BNE 
DEC 
BNE 
COM 
DEC 
BNE 

MOV 
JSR 
MOV 
ASL 
BEQ 
BVC 
MOV 
COM 
COM 
DEC 
BNE 
DEC 
BNE 
COM 
TST 
BNE 
MOV 
MOV 
RTS 

. SBTTL 



E07 
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PC.CKSUR 
I-1.R0 
4(SP),R2 
PC.STMM2 

2 (SP), COUNT 



•32., R4 
RO 

■64., R5 



CO CHECK SWITCH REGISTER 
SET TEST DATA UORD 
GET BANK • 

GO SET HEM MGMT IF REGUIRED 
GET ■ OF 4K BANKS TO CHECK 

SET 4K UORD COUNTER 
COMPLEMENT TEST WORD 
SET 128 UORD COUNTER 



(R2H.R3 
R0.R3 

.♦lo 

-(SP) 
PC, ERROR 



(R2H.R3 
R0.R3 
.♦10 
-(SP) 
PC .ERROR 



R5 
31 
R4 
2S 

RO 

COUNT 
IS 

pc.sTfee 

2£SP).R4 
ICOUNt 
.♦4 
10$ 

SB!-" 

(R2)+ 

R5 

4$ 

R4 

40S 

RO 

ICOUNT 
10S 

(SPH,(SP) 
(SP)*, (SP) 
PC 



GET TEST DATA 

COMPARE UITH CHECK UORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! MEM DATA (R3) NOT = TE5 T Dh t h 
(RO), A00RESS=(R2>-2 

GET TEST DATA 

COMPARE UITH CHECK UORD 

PUSH FAKE STATUS ON THE S T ACK 
ERROR! MEM DATA (R3) NOT = TES T 3A T * 
(RO), A00RESS=(R2)-2 

DECREMENT 128 UORD COUNTER 

DECREMENT 40%. UORD COUNTER 



;ALL 4K BANKS CHECKED' 



;GET FIRST BANK ADORESS 

; GO SET UP HEN FIGHT IF REQUIRED 

;GET • OF 4K BANKS 

: SHIFT ITERATION PATTERN 



:SET 40%. UORD COUNTER 
; COMPLEMENT TEST PATTERN 



; COMPLEMENT TEST WORD 



; RETURN 



ROTATING l'S J O'S ROUTINES 



T ES7 DDGAB-A 0-124K MEMORY EXERCISER NACYli 27(732) 
00QA8A.P11 ROTATING 1*S S O'S ROUTINES 



3244 










; ROUTINE TO 


324S 










;CALL: 


MOV 


3247 












MOV 
JSR 


3248 














3249 


011222 


004757 


000524 


.ROTO: 


JSR 


3250 


011225 


015504 


000002 






MOV 


3251 


011232 


015502 


000004 






MOV 


3252 


011235 


004757 


175100 






JSR 


3253 


011242 


012700 


177777 






MOV 


3254 














3255 


0112% 


012705 


000400 


IS: 


MOV 


325b 


011252 


000241 




2S: 


CLC 


3257 


011254 


004757 


000124 






JSR 


3258 


011250 


015203 


177778 






MOV 


325 "9 


011254 


103402 








BCS 


3260 


011255 


020003 








CMP 


3281 


011270 


001403 








BEQ 


3252 


011272 


0050% 




3S: 


CLR 


3253 


01 1274 


004757 


157874 






JSR 


3264 


011300 


005305 




4S: 


DEC 


3255 


011302 


001353 








BNE 


3255 


011304 


005304 








DEC 


3257 


011305 


001357 








BNE 


3258 


011310 


012515 








MOV 


3269 


011312 


012515 








MOV 


3270 


011314 


000207 








RTS 


3271 














3272 










ROUTINE TO 


3273 










CALL: 


MOV 


3274 












MOV 


3275 












JSR 


3275 














3277 


011315 


004787 


000430 




RCT1: 


JSR 


3278 


011322 


015504 


000002 






MOV 


3273 


011325 


015502 


000004 






MOV 


3280 


011332 


004757 


175004 






JSR 
CLR 


3281 


011335 


■I ILTI I II 








3282 










3283 


011340 
0113H4 


012705 


QOOM00 


IS: 


MOV 


3284 


000251 




2S: 


SEC 


3285 


0113% 


004757 


000032 






JSR 


3285 


011352 


015203 


177775 






MOV 


3287 


011355 


103002 








BCC 


3288 


011350 


020003 








CMP 


3289 


011352 


001401 








BEQ 


32S0 


011354 


104400 




3$: 


HLT 


3291 














329c 


□11 Job 


005305 








DEC 


3293 


011370 


001355 








BNE 


3294 


011372 


005304 








DEC 


3295 


011374 


001351 








BNE 


32% 


011375 


012515 








MOV 


3297 


011400 


012518 








MOV 


3298 


i*02 


000207 








RTS 


3299 
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CK ROTATING '0' 
BANKI.-(SP) 
BLKCNt.-(SP) 
PC,.ROtO 

PC.CKSUR 
2(SP),R4 
4(SP).R2 
PC.STNM2 
l-i.RO 

1258., R5 

PC .ROTATE 
-2lR2),R3 
3S 

R0.R3 
4S 

-(SP) 

PC, ERROR 

RS 

25 

R4 

IS 

(SPH.(SP) 
(SP)+,(SP) 
PC 



BIT THROUGH FILD OF TS 
[ARTING BANK I 
WORO " 
JITNE 




BLOCK COUNT 



GO CHECK SWITCHES 

GET 255. WORD BLOCK COLNT 

GET FIRST BANK I 

GO SET UP MEM MGMT (IF Avfil. 

SET^HECK UORO 

SET 255. WORD COUNT 
CLEAR CARRY BIT IN PSU 

GET RESULT 

BRANCH IF 'C BIT WAS SET 
CHECK RESULT 

ERROR! COULD NOT ROTATE '0' Sr 
THROUGH ADDRESS IN R2 
DECREMENT 255. WORD COUNT 
LOOP UNTIL DONE 

DECREMENT 255. WORD BLOCK CClV 

LOOP UNTIL DONE 

POP CONSTANTS OFF THE STACK 

RETURN TO CALLER 



CK ROTATING T BIT THROUGH A FIELD OF O'S 

BANKS. -(SP) ;SET STARTING BANK t 

BLKCNT.-(SP) ;SET • OF 255. WORD BLOCKS TO C-£ 

PC,.ROtl ; CALL ROUTINE 



PC.CKSUR 
2(SP),R4 
4(SP),R2 
PC.STMM2 
RO 

1255., RS 

PC, ROTATE 
-2(R2),R3 
3S 

R0.R3 
.♦4 



RS 
2S 
R4 
IS 

(SPH.CSP) 
(SP)*. (SP) 
PC 



;G0 CHECK SWITCHES 
;GET t OF 255. WORD BLOCKS TC CHE 
GET STARTING BANK I 
; GO SET UP MEM MGMT (IF AVAIL * 
I SET CHECK WORD 

; SET 255. WORD COUNTER 

SET 'C* BIT IN PSU 

GO ROTATE T BIT 
;GET RESULT 

; BRANCH IF 'C IS CLEAR 
; CHECK RESULT 

; ERROR! COULD NOT ROTATE T 8I~ 
; THROUGH AOORESS IN R2 
; DECREMENT 258. UORD COUNT 

•.DECREMENT 256. UORD BLCCk ZO'JSl 

; ADJUST RETURN ADDRESS 

; RETURN TO CALLER 



G07 
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DOGAflA.Pll 



ROTATING l'SSO'S ROUTINES 



3300 



3303 
330M 
3305 
3306 
3307 
3306 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
331b 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
332S 
332b 
3327 
3326 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
333b 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
334b 
3347 
3348 
3349 
3350 
3351 
3352 
33S3 
3354 
3355 



011404 
01140b 
011410 
011412 
011414 
01141b 
011420 
011422 
011424 
01142b 
011H3Q 
011432 
011434 
01143b 
011440 
011442 
011444 
0114% 
011450 



011452 
01145b 
011462 
Oll4bb 
011472 
01147b 
011500 
011502 
011504 
01150b 
011510 
011512 
011514 
01151b 
011520 
011522 



011524 
011530 
011534 
011540 
011544 



if&iii 

106112 
106112 
106112 
106112 
106112 
106112 
106122 
106112 
106112 
106112 
106112 
106112 
106112 
106112 
106112 
106122 
000207 



016604 
016602 
004767 
016700 
012703 
010022 
010022 
010022 
010022 
005303 
001372 
005304 
Q013bfe 
012616 
01261b 
000207 



004767 
01b700 
01bb04 
016602 
0047b7 



: ROUTINE TO 
ROTATE: RQL 
ROL 
ROLB 
R0L8 
ROLB 
R0L6 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
RTS 



ROTATE 'C 
(R2) 
(R2) 
(R2) 
(R2) 
(R2) 
(R2) 
(R2) 
(R2) 
(R2) + 
(R2) 
(R2) 
(R2) 
(R2) 
CR2) 
(R2) 
(R2) 
(R2) 
(R2H 
PC 



BIT THROUGH A MEMORY LOCATION 
(R2) =17777 
R2)r 



1 77775* OR WS& 



(R2)=177773 OR 000004 
(R2) =177767 OR 000010 
(R2) =177757 OR 0OC020 
(R2) =177737 OR 000040 
(R2) =177677 OR 000100 
(R2)=177777 OR 
(R2)=177S77 OR 
(R2)=177377 OR 000400 
(R2) =176777 OR QQ10Q0 
(R2)=175777 OR 002000 
(R2) =173777 OR 004000 
(R2)=167777 OR 010000 
(R2)= 157777 OR 020000 
(R2) =137777 OR 0400CO 
(R2) =077777 OR 100000 
[92) -177777 OR 000000 
RETURN 



ROUTINE TO WRITE USER SLECTED PATTERN INTO MEMORY 

CALL: NOV BANKt.-(SP) ;PUSH STARTING BANK I ONTO STACK 

NOV BLKCNT.-(SP) ;ANO 128. WORD BLOCK COUNT 

JSR PC, . . USER ; CALL ROUTINE 



000002 
000004 
175654 
174012 
000100 



IS: 
2S: 



.USER: MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
DEC 
3NE 
)EC 
BNE 
MOV 
MOV 
RTS 



2(SP),R4 

4(SP).R2 

PC.STHM2 

.CONST.RO 

•64..R3 

R0.(R2)+ 

R0,(R2H 

R0,(R2)+ 

R0,(R2)* 

R3 

2S 

R4 

IS 

(SP)* f (SP) 
(SP)* (SP) 
PC 



GET BLOCK COUNT 
GET STARTING BANK I 
GO SET UP MEM HGMT 
GET USER CONSTANT 
SET 256. WORD COUNTER 
WRITE 256. WORDS 



; DECREMENT 256. WORD COUNTER 
LOOP UNTIL 2S6. WORDS HAVE BEEN *R: 
DECREMENT BLOCK COUNT 



'EN 



: ADJUST STACK 



000222 
173750 
000002 
000004 
175572 



311553 012705 000100 



. S8TTL USER PATTERN ROUTINE 
: ROUTINE TO CHECK USER SELECTED PATTERN 

CALL: MOV BANKI.-(SP) ;PUSH STARTING BANK f ONTO STAC* 

; MOV BLKCNT.-(SP) ;AND 256. WORD BLOCK COUNT 

; JSR PC,.. USER -CALL ROUTINE 

..USER: JSR PC.CKSWR ;G0 CHECK SWITCH REGISTER 

MOV .c6nST.R0 :GET USER CONSTANT 

IS: MOV 2iSP),R4 ;GET I OF 256. WORD BLOCKS 

MOV 4CSP) R2 ;GET STARTING BANK t 

JSR PC.STMM2 ;G0 SET UP MEM MGMT IF REQUIRED 

2S: MOV 164.. R5 : SET WORD COUNT 
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335b 
3357 
3358 
3359 
33bO 
33bl 
3352 
3353 
3354 
3355 
33bb 
33b7 
33b8 
3359 
3370 
3371 
3372 
3373 
337M 
3375 
3375 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3385 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
33% 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
2411 



011554 
011554 
011555 
011550 
011552 
011554 



011570 
011572 
011574 
011575 
011500 



011504 
011505 
011510 
011512 
011514 



011520 
011522 
011524 
011525 
011530 



011534 
011535 
011540 
011542 

011544 
011552 
011554 
011550 
011552 
011554 
011555 



012203 
020003 
001403 
0050% 
004757 



012203 
020003 
001403 
005045 
004757 



012203 
020003 
001403 
0050% 
004757 



012203 
020002 
001403 
005045 
004757 



005305 
001345 
005304 
001342 

032737 
001330 
005357 
001325 
012515 
012515 
000207 



3S: 



157404 



157370 



157354 



157340 



040000 177570 
157054 



MOV (R2)+,R3 

CMP R0.R3 

BEQ .+10 

CLR -(SP) 

JSR PC, ERROR 



MOV (R2)+,R3 

CMP R0.R3 

BEQ .+10 

CLR -(SP) 

JSR PC .ERROR 



MOV (R2)+,R3 

CMP R0.R3 

BEQ .+10 

CLR -(SP) 

JSR PC, ERROR 



MOV (R2)+,R3 

CMP R0.R3 

BEQ .♦10 

CLR -(SP) 

JSR PC, ERROR 



DEC R5 

BNE 35 

DEC R4 

BNE 2S 

BIT 140000, 3ISUR 

BNE IS 

ASL I COUNT 

BNE IS 

MOV (SP)+.(SP) 

MOV (SP)+,(SP) 

RTS PC 



PAGE 85 



GET TEST DATA 

COMPARE UITH CHECK UORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! HEM DATA (R3) NOT = TEST DATA 
(RO), A0DRESS=(R2)-2 

GET TEST DATA 

COMPARE WITH CHECK UORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! MEM DATA (R3) NOT = TEST Dh t A 
(RO), ADDRESS=(R2)-2 

GET TEST DATA 

COMPARE UITH CHECK UORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! HEM DATA (R3) NOT = TEST DA T A 
(RO), ADDRESS=(R2)-2 

GET TEST DATA 

COMPARE UITH CHECK UORD 

PUSH FAKE STATUS ON THE STACK 
ERROR! MEM DATA (R3) NOT = TEST CATS 
(RO), A0DRESS=(R2)-2 

DECREMENT UORD COUNT 

DECREMENT BLOCK COUNT 



; CHECK LOOP SUITCH 
LOOP CHECKING THIS PATTERN 
• SHIFT PATTERN INDICATOR 

;ADJUST STACK 

;RETURN TO CALLER 



.SBTTL GET TTY INPUT ROUTINE 
{ROUTINE TO GET ASCII INPUT FROM TTY, AND CONVERT TO OCTAL. 
.......... — — BITS in ADDRESS FOLLOUINTG THE 

BELOU. 



011570 








011570 


004757 


155410 




011574 


004787 


002172 




011700 


010287 


000042 




011704 


010357 


000040 




011710 


004757 


155414 




011714 


011557 


000024 




011720 


015777 


000024 


000015 


011725 


015757 


000014 


000005 



ROUTINE LEAVES THE FIRST 15 
AND THE LAST 2 BITS IN .1617 
JSR PC,RECD 



CALL 



:CALL 
RECD: 



JSR PC,SSAVR 

JSR PC,INUM 

MOV R2JEMP2 

MOV R3,TEMP3 

JSR PCllRESTR 

MOV (SP). TEMPI 

MOV TEMP3,3TEMP1 

MOV TEMP2..1617 



;G0 SAVE REGISTERS ON THE STACK 



{RESTORE REGISTERS f ROM STACK 
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34 
3M 
34 

S 

34 
34 
34. 
3H20 
3421 
3422 
3423 
342M 
342S 
3426 
3427 
3428 
342<3 
3430 
3431 
3432 
3433 
3434 
343S 
343fc 
3437 
3438 
343*3 
3440 
3441 
3442 
3443 
3444 
3445 
34% 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
345fa 
3457 
3458 
345S 
3450 
3461 
3462 
34b3 
34b4 
34b5 
34bb 
24b7 



734 06271b 
740 000207 
742 000000 

000000 
750 000000 



011752 
0117S0 
0117bb 
011770 
011774 
012002 
012004 
012012 
012014 
012022 
012030 
012036 
012044 
012046 
012052 



012054 
012062 
012070 
012076 
012104 
012112 
012120 
012126 
012134 
012142 
012150 
012155 
012162 
012170 
012176 
012204 
012212 
012220 
012226 
012234 
012241 
012246 
012254 
012257 
012263 
012270 
012276 
012303 
012310 



042767 
032737 
001402 
004767 
032737 
001404 
056767 
000403 
056767 
016737 
012767 
032737 
001402 
105067 
000207 



005015 
051505 
046040 
051522 
052122 
033061 
005015 
042514 
052111 
030057 
047057 

015 
052122 
040502 
034050 
005015 
032040 
045516 
052040 
024470 

015 
042524 
020077 

015 

015 
020105 
040524 

015 
052125 



000002 



017777 
000400 

000464 
001000 



166770 
177570 



166736 166736 



166722 
lbb722 
040177 
004000 

lbbb72 



047524 
047524 
040517 
051440 
040440 
006462 
047105 
050040 
037531 
054475 
020117 
051412 
047111 
04551b 
037451 
020043 
020113 
020123 
051505 
020077 
050012 
047122 
000 
037412 
052012 
047503 
05211b 
044412 
021440 



lbb72b 
177570 
lbb70b 
177570 



051040 
042522 
042504 
040524 
020124 
000012 
041101 
051101 
030440 
051505 

000 
040524 
020107 
021440 
000040 
043117 
040502 
047524 
024124 

000 
052101 
021440 

000 
050131 
05151b 

000 
05011b 
047440 



.1617 

m 

TEMP3 



AOO 
RTS 
.WORD 



•2,(SP) 
PC 



.WORD 



; ROUTINE TO CHECK THE SWITCH REGISTER 

CHECK SWITCH S: IF SET. LOAD ERROR COUNT INTO THE DISPLAY REGIS T E=; 
[IF NOT SET, LOAO PASS fcOUNT INTO THE DISPLAY REGISTER 
CKSWR: BIC s.17777 LDOISP ;5AVE RELrCRTIir BUS 



177570 10S: 



IS: 
2S: 



BIT IBIT8 

BEG 10S 

JSR PC.REL24K 

BIT iBlTS.aiSWR 

BEG IS 

BIS ERCNT,LDDISP 

BR 2S 

BIS ICNT.LDDISP 

MOV LDDISP.3IDISPLAY 

MOV 1040177, ICOUNT 

BIT 14000, 3ISWR 

BEG .+6 

CLRB ICOUNT 

RTS PC 



CHECK SWITCH 8 
BRANCH IF SET 
GO RELOCATE PROGRAM BACK TC 4K AMC 
SWITCH S SET ' 

LOAD ERROR COUNT 

LOAD PASS COUNT 
LOAO THE DISPLAY REGISTER 
LOAO ITERATION COUNT WORD 
CHECK SW11 

ICOUNT =040000 IF SW11 =1 



:MESSAGES 

RESLDR: .ASCI2 <15><12>'T0 RESTORE LOADERS START AT 162'<15>'i2 



PARITY: .ASCIZ <15><12> 'ENABLE PARITY' 1/0=YES/N0 ' 



STBANK: .ASCIZ <15><12> 'STARTING BANK 1(8)' ' 



BANKS: .ASCIZ <15><12>'l OF 4K BANKS TO TEST(8)> ' 



PAT: 



.ASCIZ < !5><12> 'PATTERN l* ' 



QUEST: .ASCIZ <15><12>'" 

CONST: .ASCIZ < 15> < 12> 'TYPE CONSTANT' 

PRG3M: .ASCIZ <15>< 12> ' INPUT t OF 25b. WORD BLOCKS TC TEST INSTEAD OF' 
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3468 

3469 

3470 

3471 

3472 

3M73 

3474 

3475 

347b 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

34% 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

350b 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

351b 

3517 

351B 

3519 

3520 

3521 

3522 

3523 



01231b 
012324 
012332 
012340 
0123% 
012354 
012362 
012364 
012372 
012400 
012403 
012410 
012416 
012424 
012432 
012440 
012442 



012460 
012462 
012466 
012472 
012476 
012500 
012502 
012506 
012514 
01! 
Oil 
012530 
012534 



020106 
053440 
046102 
052040 
052123 
042524 
000106 
005015 
040440 
051523 
015 
042522 
020105 
040522 
051101 
000040 
000052 
04 



8. 11 

04, 



10700 
2700 
010067 
004567 
000000 
000000 
012706 
042737 
013737 
005037 
000005 
005037 
000137 



032462 
051117 
041517 
020117 
044440 
042101 

054524 
042104 
000 
052012 
052123 
051120 
020115 
020124 



040521 
042516 



017777 
000004 
173652 



000500 
100000 
000750 
000754 

00017b 
000 162 



027066 
020104 
051513 
042524 
051516 
047440 

042520 PRG4M: 
042522 



. ASCIZ <15><12>*TYPE ADDRESS ' 



020117 RELOCM: .ASCI 2 < 15> < 12> * TO RESTORE PROGRAM STAR T AT 

051117 

043517 

0S2123 

052101 

ASTERISK' ASCI2 '*' 
'0102 ENDMSG: iASCIZ 'DDQAB DONE! ' 



000041 



000750 
177570 



.EVEN 



:ROUTINE TO 
REL24K: MOV 



IS: 



BIC 
MOV 
JSR 
0 
0 

MOV 

BIC 

MOV 

CLR 

RESET 

CLR 

JMP 



RELOCATE PROGRAM BACK 

•17777.R0 
RO.lt 
R5 , RELOC 



TO 0 



•STKPTR.SP 
•lOOOOO.aiLDOISP 
9lLD0ISP,9l0ISPLAY 
StRELOCF 

91176 
91162 



;FORM BASE ADDRESS WHERE CODE 
IS RELOCATED 

PUT FROM AOORESS INTO SUBROUTINE CALL 
; RELOCATE CODE TO 
•LOWEST 4K 

SET STACK PTR 

CLEAR RELOCATION INDICATOR 

LOAD DISPLAY REGISTER 

CLEAR RELOCATION FACTOR 

DISABLE HEM MGMT 

PUT A HALT AT 176 

RESTORE LOADERS & HALT AT 176 



.SBTTL BRANCH GOBBLE MOS MEMORY TEST 

*****PROGRAH DESCRIPTION"*** 

THIS IS A PSEUOO-MOOIFIED VERSION OF THE BRANCH GOBBLE 
MOS MEMORY EXERCISER. PSEUDO-MOQIFIED BECAUSE THE 
ORIGINAL CODE. TAKEN FROM THE D20KA-A INSTRUCTION 
EXERCISER.WHICH IS BRANCH GOBBLE IS INCLUOEO 
HERE IN its ORIGINAL FORM. BUT MEMORY MANAGEMENT 
CABABILITIES HAVE BEEN ADOEO TO GIVE. IT OPERATING 

" MEMORY E 



ABLITIES IN A 0-128K 



ENVIRONMENT. 



*****OPERATING PROCEDURE***** 

WHEN LOADED THIS PROGRAM'S STARTING ADDRESS IS XXXXXX. 
WHEN RUNNING THE FOLLOWING STEPS ARE TAKEN: 
1. ) A PRO:RAM ID IS TYPED ON THE TTY: 

BRANCH GOBBLE MOS TEST , _ „ „ _ 

1.5 J THE PkOGPAM DETERMINES IF THERE IS MOS PARITY. IF YES I T Is ENAB^tC 
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3S2H 
3S2S 
3S26 



3529 

3530 

3S31 

3533 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3S42 

3543 

3544 

3545 

3546 

3547 

3548 

3S49 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3S79 



2.) 



3. 



4. ) 
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AND THE USER IS TOLD. 
THE USER IS ASKED: 

USE MEMORY MANAGEMENT' (Y OR N) 

IF THE USER TYPES Y, THE MEMORY MANAGEMENT 
WILL BE USED TO RUN THE TEST. IF HE TYPES 
N THEN MEMORY MANAGEMENT HILL NOT BE USED 
IN EITHER CASE THE ACTUAL TEST UILL BE 
PERFORMED BY THE UNMODIFIED ORIGINAL VERSION 
OF BRANCH GOBBLE. 
NOTE THAT WHEN THE TEST OF MEMORY 
LOCATED IN UN I BUS ADDRESSES HIGHER THAN 
177777 IS DESIRED. THE ENABLING OF MEMORY 
MANAGEMENT IN THIS PROGRAM IS MANDATORY. 
NOTE ALSO THAT WHEN THE TEST IS TO BE 
IN THE 0 TO 177777 RANGE OF UNIBUS ADDRESSES 
IT IS RECOMMENDED THAT MEMORY MANAGEMENT 
BE DISABLED. 

THE PROGRAM WILL THEN ASK THE USER 
FOR THE HIGH ADDRESS LIMIT FOR THE TEST: 
WHAT IS THE HIGH LIMIT: 

> 

AND THEN FOR THE LOW LIMIT: 

WHAT IS THE LOW LIMIT: 

BOTH OF THE ADDRESSES SHOULD BE SPECIFIED IN 
OCTAL USING THE FORM XXXXOO. THAT IS THE 
ADDRESSES MUST BE THE BEGINNING OF 100 BYTE 
BLOCKS OF MEMORY. IF THEY ARE NOT THEN THEY 
WILL BE TRUNCATED! 

THE AOORESSES WILL BE INTERPRETED AS FULL 18-BIT 
UNIBUS AOORESSES. 

VALID ADDRESSES MEET THE FOLLOWING CONDITIONS: 

1. THE SPECIFIED SPAN OF THE TEST 
SHOULD NOT ENCOMPASS THE ACTUAL 
MEMORY LOCATIONS OCCUPIED BY THIS 
PROGRAM. THIS PROGRAM IS RELOCATABLE 

AT LOADING TIME. SO THAT NO LIMITATIONS 
ARE THUS IMPOSED. 

2. THE HIGH LIMIT SHOULD BE GREATER 
THAN THE LOW LIMIT. 

3. THE NUMBER MUST BE SPECIFIED BY 
OCTAL DIGITS. 

4. IF THE USER HAS DISABLED MEMORY 
MANAGEMENT THE ADDRESSES SHOULD BE 
IN LOW MEMORY. I.E. LESS THAN 177777. 

IF ANY OF THESE CONDITIONS IS NOT MET 
THE USER WILL BE ASKED TO INPUT ANOTHER 
ADORESS. 

NOTE THAT IF ANY OF THE ADDRESSES IN THE TEST 

SPAN IS A NON-EX I STANT MEMORY LOCATION 

A TIME OUT ERROR UILL OCCUR FROM WHICH 

NO RECOVERY CAN BE MADE EXCEPT TO RESTART 

AT THE STARTING ADDRESS. 

WHEN THE ABOVE INFORMATION HAS BEEN 

SUCCESSFULLY GATHERED FROM THE USER, THE 
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3580 
3S81 

m 

358b 

3587 

3588 

3589 

35% 

3591 

3592 

3593 

359*4 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 



012540 



077406 



5.) 



6.) 



TEST WILL BEGIN. IF 3RANCH GOBBLE ENCOUNTERS 
A MEMORY FAULT DURING THE TEST THE 

^MV&f-™ fl J H T * ™ CflTI0N " 

fNCOUNTET^HITH S°MEhoR? KuLT^ANyWrE 

IN THE TESTE0 SPAN. THEN THE TEST 

WILL BE REPEATED BY RETURNING TO STEP 4. 

IF THE USER WISHES TO STOP THE TEST IN PROGRESS AND STfiPT 

ANOTHER WITH A DIFFERENT RANGE THEN HE SHOULD HIT THE Hf\S 

SWITCH AND START THE TEST AGAIN AT 260. 



tOP: 

: CONSTANTS: 
KPDR=077406 

THIS ROUTINE TAKES CARE OF THE IDENTIFICATION, 
ASK THE USER IF MEMORY MANAGEMENT SHOULD BE 
IF NOT DOES THE SET UP FOR THE 
IF MEMORY MANAGEMENT IS 



ENABLED. AND 
ACTUAL TEST. 
^IRED THE 



DESI 



ROUTINE YMMBGO IS GIVEN CONTROL. 



012540 


000000 






LODFLG: 


.WORD 


012542 


005067 


165352 




• 

BRANCH: 


CLR 


0125% 


005067 


166200 






CLR 


012552 


004567 


166202 






JSR 


012556 


015310 








.WORD 


012560 


004767 


167254 






JSR 


012564 


004767 


001566 




15S: 


JSR 


012570 








IS: 




012570 


004567 


166164 






JSR 


012574 


015243 








.WORD 


012576 


105737 


177560 




25: 


TSTB 


012602 


100375 








BPL 


012604 


113746 


177562 






MOVB 


012610 


042716 


177600 






BIC 


012614 


004767 


001520 






JSR 


012620 


005726 








TST 


012622 


022766 


000131 


177776 




CMP 


012630 


001513 








BEO 


012632 


022766 


000116 


17777b 




CMP 


012640 


001406 








BEO 


012642 


012746 


000077 






MOV 



RELFL 

MMAVA 

RS. SPRINT 

IDMESS 

PC,SLDR 

PC,MOSPAR 

R5. SPRINT 
MMMESS 

3ITKS 
2S 

aiTKB.-(SP) 
1177600. (SP) 
PC.TYPlt 
(SP) + 

l'Y.-2(SP) 
YMMBGO 

i'N,-2CSP) 
3S 

r V(SP) 



; INITIALIZE THE RELOCATION INDICATOR. 
; INITIALIZE THE MEM. MANAGEMENT FLAG. 
;G0 TO PRINT ROUTINE 



;G0 TO PRINT ROUTINE 

; MEMORY MANAGEMENT SHOULD 

;BE ENABLED 

;WAIT FOR A CHARACTER. 

; GET THE CHARACTER. 

;ECHO THE CHARACTER. 
RESET THE STACK. 
;IF IT IS Y. THEN GO 
•TO YMMBGO to ENABLE 
; MEMORY MANAGEMENT 
•IS IT N' 

;IF IT WAS NIETHER 
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DDQABA.P11 



BRANCH GOBBLE (10S MEMORY TEST 



3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
364B 
3649 
3650 
3651 
3652 
3653 
3654 

3655 
3656 
3657 
365B 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3666 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
36B1 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 



012646 004767 001466 

012652 005726 

012654 000745 

012656 004767 001C66 



35: 



JSR PC.TYPIT 

TST (SP)+ 

BR IS 

JSR PC, LIMITS 



012662 
012670 
012672 
012676 
012700 
012704 
012706 
012712 
012714 
01 2720 
012722 
012726 
012732 
012736 
012742 
0127% 
012750 
012756 
012760 
012764 
012770 



022767 
002010 
012700 
060700 
062700 
0100% 
000167 
005046 
0127% 
060716 
062716 
004767 
004767 
0127% 
004767 
005726 
022767 
002026 
016700 
004767 
010067 



001600 001172 

177770 

177772 

001140 

002502 

177772 
000774 
000436 
000052 
001372 

000200 001104 

001076 
000054 
002556 



SPOT: CMP 
BGE 
MOV 
ADD 
AOD 
MOV 
JMP 

SP0T2: CLR 
MOV 
AOD 
AOO 
JSR 
JSR 
REPET1: MOV 
JSR 
TST 
CMP 
BGE 
MOV 

4 J: JSR 
MOV 



012774 016700 001064 



013000 
013004 
013010 
013014 
013020 
013022 
013026 

013032 
013034 
013040 



013044 
013050 
013052 
013054 
013056 



004767 
010067 
005037 
012704 
060704 
062704 
010437 

000002 
004767 
000167 



012701 
006300 
005201 
002775 
000207 



000040 
002544 
000036 
000020 

177772 
000034 



000404 
177672 



177772 



•SP0T-..R0 

PC.RO 

•-6.R0 

RO.-(SP) 

LIMERR 

-(SP> 

•FIRSTl-.,-(SP) 

PC.(SP) 

•-6,(SP) 

PC,L0SEG4 

PC L0SEG1 

•'*.-(SP) 

PC.TYPIT 

ISP)* 

•200.HILIM 

REPET3 

HILIM.RO 

PC.ROT 

RO|HI 

LOLIM,RO 

PC, ROT 
RO.LO 
9S36 

•REPET3-. ,R4 
PC.R4 
•-6.R4 
R4,i*34 

PC.L0SEG2 
REPET1 



Y OR N THEN ASK 
THE USER AGAIN. 

GO GET THE LIMITING 
ADDRESSES FOR THE TEST. 
THEY UILL BE LEFT AS 
BLOCK NUMBERS IN LOLIM 
AND HILIM. 



;SET THE PARAMETERS 
IN THE ACTUAL TEST 
ROUTINE. 

DO THE SAME FOR THE 
;LOU ADDRESS LIMIT. 

; SET UP THE VECTORS 
FOR AN INTERUPT 
FROM A TRAP INSTRUCTION 
WHICH UILL BE USED TO 
RETURN FROM THE TEST 
ROUTINE WHEN IT IS DONE. 
START THE TEST. 



MOV 

JSR 
MOV 
CLR 
MOV 
AOO 
AOD 
MOV 

RTI 

REPET3: JSR 
JMP 

{this rol.:.€ is called to shift ro to the left SIX BITS. 

ROT: MOV 1-6, Rl 
IS: ASL RO 

INC Rl 

BLT IS 

RTS PC 

YMMBGO SETS UP FOR USING MEMORY MANAGEMENT TO 
DO THE MOS TEST. 

ALL THE MEMORY MANAGEMENT REGISTERS WHICH ARE 
TO REMAIN STATIC FOR THE TESTS DURATION ARE SET. 
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3692 
3693 
3694 
369S 
36% 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
370H 
3705 
3706 
3707 

m 

3710 
3711 
3712 



37 
37 
37 
37 
37 
37 
37 



3720 
3721 
3722 
3723 
372M 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
37M0 
3741 
3742 
3743 
3744 
3745 
3746 
3747 













•BE CHANGED 


0. 


13060 


012767 


177777 


165664 


YMMBGO: 


MOV 


OJ 


13066 


005037 


177572 






CLR 


OJ 


3072 


Ulc/UU 








MOV 


OJ 


3076 


012701 


172300 






MOV 


OJ 


3102 


UUOUUJ 








P\ 0 


OJ 


13104 


012704 


177770 






HOW 

nuv 


OJ 


13110 


010320 






Is: 


nuv 


OJ 


13112 


062703 


000200 








0 


3116 


012721 


077406 






MOV 


OJ 


.3122 


005204 








INC 


§i 


BiS 


m 


000616 






Hi 


013132 


004767 


000570 






JSR 


013136 


012737 


U07600 


172356 




MOV 


013144 


005046 






REPET2: 


CLR 


013146 


0127% 


002250 






MOV 


013152 


060716 








ADO 


013154 


062716 


177772 






ADD 



THE LIMITS ARE THEN GOTTEN AND CHECKED FOR VALIDITY. 
THE TRAP INTERRUPT VECTORS ARE SET AND YMMBG1 
IS CALLED. YMMBG1 IS A ROUTINE THE SETS THOSE 
MEMORY MANAGEMENT REGISTERS WHICH NEED TO 
' NAMICALLY DURING THE TEST. 



013160 016767 000704 000674 

013166 016767 000674 000670 

013174 004767 000174 

013200 0127% 000052 

013204 004767 001130 

013210 005726 

013212 012737 013224 000034 

013220 005037 000036 



MOV 
MOV 
JSR 
MOV 
JSR 
TST 
MOV 
CLR 



i-l.MMAVA 

atsfto 

•KIPARO.RO 
•KIPDRO.Rl 
R3 

H-10.R4 

R3.(R0)+ 

•200.R3 

•KP0R,CR1)+ 

R4 

IS 

PC, LIMITS 

PC,L0SEG4 
17600, 3IKIPAR7 

-(SP) 

•FIRSTl-.,-(SP) 

PC.(SP) 

•-6,(SP) 



HISAV, HILIM 

LOSAV.LOLIM 

PC.LOSEGl 

«'*,-(SP) 

PC.TYPIT 

(SP)+ 

•YMMBG1 , 3»34 
3 136 



;SET ALL THE STATIC 
•REGISTERS. 



GET THE LIMITS FOR THE PENDING 
TEST. THEY ARE LEFT IN BLOCK NUMBER 
FORM IN HILIM AND LOLIH. 
SEE IF PERMANENT RELOCATION IS 
APPROPRIATE FOR THIS TEST SPAN. 
MAP THE UNIBUS DEVICE PAGE INTO 
INTO HIGH VIRTUAL MEMORY. 



;SET UP THE STACK 

;T0 SIMULATE THE OCCURRENCE OF AN 

AN INTERRUPT SO THAT THE TEST CAN 

BE STARTED USING AN RTI. 



;SET UP THE TRAP INTERRUPT VECTOR 
WHICH WILL BE USED TO RETURN FROM THE 
; TESTING ROUTINE. 



YMMBG1 IS USED TO DYNAMICALLY ALLOCATE MEMORY UNDER MEMRY MANAGEMENT 
WHILE A TEST IS IN PROGRESS. WORKING UPWARDS FROM THE LOLIM 
MEMORY MANAGEMENT IR SET TO ENABLE BRGOB TO WORK THROUGH AS 
MUCH OF THE TEST SPAN AS POSSIBLE IN A SINGLE MANAGEMENT SET UP 
BEFORE HAVING TO RESET THE MANAGEMENT REGISTERS. _ n 
BRGOB ALWAYS IS IN LOW VIRTUAL MEMORY AND UPPER VIRTUAL 
ADDRESSES ARE ALWAYS MAPPED INTO UNIBUS DEVICE ADDRESSES. 



013224 


005037 


177572 YMMBG1: 


CLR 


013230 


026767 


000626 00062b 


CMP 


013236 


101451 




8L0S 


013240 


012700 


172342 


MOV 


013244 


016705 


000614 


MOV 


013250 


012701 


177772 


MOV 



atsRo 

HILIM, LOLIM 
DONIT 

•KIPARl.RO 
LOLIM ,RS 
1-6, Rl 



;IS THE TEST DONE' 
YES. THEN BRANCH. 
ELSE GET READY TO SET 
THE KERNAL PAGE ADDRESS REGISTERS. 
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37MB 
3749 
3750 
375 1 
3752 
3753 



3756 
3757 
3758 
3759 
37b0 
3761 
3762 
3763 
3764 
3765 
3766 
3757 
3768 
3769 
3770 
3771 
3772 
3773 
3774 

:t5 

3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
r90 
3791 
3792 
3793 
379M 
3795 
37% 
3797 
3798 
3799 
3800 
3801 
3602 

WW WW 



020000 002272 



013264 
013270 
013274 
013276 



062705 000200 
025,705 CC0566 
101407 
005201 



013300 002770 

010567 002244 



013302 



013306 
013312 
013314 



16270S 

000403 
016767 



013322 166767 



oi: 
oi: 

013340 
013344 
013350 
013354 
013360 



013362 
013366 
013370 



062700 
010067 
010567 
005237 
000002 



000002 
000542 

000536 
!16 



020000 
002202 
000510 
177572 



004767 000056 
022626 

000167 177550 



It: 
21: 
25S: 



002230 3S: 
002222 4$: 



DONIT: 



MCV 

MOV 

ROD 

CMP 

BLOS 

INC 

BIT 
MOV 



SUB 

BR 

MOV 



SUB 

MOV 
JSR 
ROD 
MOV 
MOV 
INC 
RTI 



JSR 
CMP 
JMP 



8»° 

•200.RS 
HILIM.RS 
3S 
Rl 

IS 

RS.HI 



•2.R5 
41 

HILIM.HI 



LOl.IH.Hl 

pcIpSt 

•20000.RQ 
RO.HI 
R5.L0LIM 
aiSRC 



PC.LOSEC 
(SP)+.(S 
REPET§ 



RESET THE KIPAA'S 

NO. INCREMENT Rl RNO SEE IF ALL THE 

allth! k%& £ have T not BEEN SET SO 

LOOP TO GET THE NEXT ONE. 
DO THIS IS ALL THE TEST SPAN HAS N0 T 
BEEN ALLOCATED TO SOME VIRTUAL ADDPSSi 
IS THE KERNAL INSTRUCTION SPACE. 



DO THIS IF ALL THE TEST SPAN HAS BEEN 

ALLOCATED TO THE VIRTUAL KERNAL SPACE 

JUST ALLOCATED. 

COMPUTE THE VIRTUAL LIMIT 

OF THE TEST SPAN. 



;TURN ON MEMORY MANAGEMENT 
RETURN TO BRGOB TO 
PERFORM THE TEST IN 
THE SPAN INDICATED 
BY THE RESULT OF THE 

; ABOVE 

;TEST COMPLETED, SO 
! RESTART 



013374 
013400 
013406 
013410 
013414 
013422 
013424 
013432 
013434 
013442 



005067 
026727 
103011 
005367 
022767 
103004 
012767 
000207 
012767 
C00770 



000324 
000462 

000310 
000200 

000200 

000200 



000200 



000446 
000432 
000420 



L0SEG1 IS CALLED TO OECIDE WHETHER OR NOT THE LIMITS ARE SUCH THAT 
THE FIRST 4K0F MEMORY HILL HAVE TO BE CHECKED IN THE JEST. THAT 
IS DO THE LIMITS INCLUDE ADDRESSES WHICH LIEH IN THE FIRST 4K BLOCK 
OF MEMORY THUS REQUIRING THAT ThI CONTENT! OFTHISFIRJT O.0CK OF 
MEMORY BE MOVED INTO THE SECOND 4K BLOCK SO THAT THE TEST CAN BE 
RUNTHROUGH THE FIRST 4K BLOCK. IF RELOCATION IS NECESSARY L0SEG1 
SETS LOSFL TO -1 AND RESETS THE LIMITS, LOLIH AND HILIH, 
.APPROPRIATELY. Tu „ Tfti t __ 

L0SEG1: CLR LOSFL INITIALIZE. . . 

CMP L0SAV.1200 SEE IF THE LOU LIMIT OR THE HIGH LIHI 

' LIE IN THE FIRST 4K BLOCK OF MEMORY. 



IS: 
2S: 
3S: 



BHIS 
DEC 
CMP 
BHIS 
MOV 
RTS 
MOV 
BR 



LOSFL 

L0SAV.I200 
2S 

LOSFL 
•200,HISAV 

3S 

•200,L0LIM 
PC 

•200.HILIM 
IS 



IL0SEG2 IS CALLED TO DO THE ACTUAL RELOCATION OF THE FIRST 4k MEMORY 
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38CM 
3805 
3806 
3807 

3808 
3809 
3810 
3811 
3812 
3813 
381H 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
382H 
3825 
38% 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
38M0 
3841 
3842 
3843 

JBri'1 
oouc 

JH*T3 

38% 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3858 

3857 

3858 
opca 

www * 



013444 
013450 
013452 
013454 
013450 
013454 
013455 
013472 
013474 
013475 
013504 
013510 
013512 
013514 
013518 
013522 
013525 
013534 
013540 
013544 
013550 
013552 
013555 
013552 
013555 
013572 
013574 
013500 
013504 
013505 
013512 
013516 



013622 
013626 
013630 
013634 
013640 
013644 



0136% 
013652 
013656 
013660 
013664 
013666 
013670 
013674 
21 2700 



00S7&7 
100401 
000207 

m 

100423 
004567 
□00000 
020000 
012737 
012701 
060105 
060116 

m 

060167 
012757 
016700 
4767 



002002 
012700 
010067 
016700 
0 2 2 700 
002002 
012700 
02002 7 
003002 
000167 
004767 
010067 



012701 
060701 
062701 
010137 
005037 
000002 



0167% 
005767 
100417 
004567 
020000 
000000 
005037 
012701 
160106 



000254 



000242 
000120 

1 72558 



177777 000120 



000114 
0 00174 

177777 164364 
000325 
177300 
000320 

000320 
001772 
000302 
000200 

000200 
000004 

000034 
177226 
001730 



000024 

177772 
000034 
000036 



000050 
000042 

172464 



000120 
020000 



;BANK INTO THE SECOND 4K MEMORY BANK, THEN RUN THE TEST 
CONTENTS BACK INTO THE FIRST BANK. 



L0SEG2: TST 
BMI 



IS: 



14S: 



15S: 



25: 



3S: 



RTS 
MOV 
TST 
BMI 
JSR 
.WORD 
.WORD 
MOV 
MOV 
ADD 
ADO 
ADO 
AOO 
ADO 
MOV 
MOV 
JSR 
CMP 
BGE 
MOV 
MOV 
MOV 
CMP 
BGE 
MOV 
CMP 
BGT 
JHP 
JSR 
MOV 



MOV 
ADD 
ADD 
MOV 
CLR 
RTI 



LOSFL 
IS 
PC 

(SPH.SAVPC 

21120 

14$ 

R5.REL0C 
0 

20000 

I-1.9H20 

120000, Ri 

R1,SP 

Rl.(SP) 

Rl.PC 

Rl, 31114 

Rl.SAVPC 

■-i.RELFL 

losav.ro 

PC f ROt 

R0!«320 

151 

•320.R0 

R0.l6 

HISAV.RO 

I200.R0 

2S 

•200.R0 

R0,»4 

3S 

L0SEG3 
PC, ROT 
RO.HI 



•L0SEG3-..R1 

PC.R1 

•-4.R1 

R1.3»34 

3136 



;SEE IF REL 
•IF NOT RET 



OCATION IS NECESSARY. 
URN. 



;SEE IF THE PROGRAM IS ALREADY RELOCATED 



; ESTABLISH VALID LIMITS FOR THE TEST 
; THROUGH THE FIRST 4K MEMORY BANK. 



; PERFORM THE TEST 



L0SEG3 RELOCATES BACK INTO THE FIRST 4K "EMORY BAN*. 



L0SEG3: 



MOV 
TST 
BMI 
JSR 
.UORD 
• WORD 
CLR 
MOV 
SUB 



SAVPC, 
PERRFL 
IS 

R5.REL0C 

20000 

0 

3»120 

•20000.01 

P1.5P 



(SP) 
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38SC 

3861 

3862 

3863 

3864 

3885 

3866 

38£>7 

3868 

3869 

3870 

3871 

3872 

3873 

387M 

387S 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 



3887 



3889 
3890 
3891 
3892 
3893 
Jcrrr 
38SS 



39S8 

3900 
3901 
3902 
3903 
390M 
3905 
390b 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
2914 
3915 



013702 
01 3704 
013710 
013712 
01371b 
013720 
013722 
013724 



lbOllb 
160137 
160107 
lbOlbb 
000207 
000000 
000000 

oocooo 



000114 
000002 



01372b 005067 

013732 02b727 

013740 101002 

013742 005367 

0137% 000207 



177766 

000132 000200 
177752 



oi: 
oi: 

013754 
01375b 
013762 
013766 
013772 
013776 
014002 
014004 
014010 
014014 
014020 
014024 
014032 

014034 
014042 
014050 
01 l 
OI 4 
014056 
014060 

014062 
014064 

014066 

214070 



000000 
000000 

000000 
000000 



SUB 
SUB 
SUB 
SUB 

IS: RTS 
PERRFL: .WORO 
SAVPC: .WORD 
LOSFL: .WORO 



lloSEGH: CLR 
CMP 
BHI 
DEC 

IS: RTS 
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Rl.(SP) 

R1.3H1M 

Rl.PC 

R1,2(SP) 

PC 

0 

0 

0 



PERRFL 
HISAV, 1200 
IS 

PERRFL 
PC 



004567 


165004 






JSR 


015206 








.WORD 


004767 


000110 






JSR 


004767 


000334 






JSR 


004767 


000330 






JSR 


010367 


000064 






MOV 


004567 


lb475b 






JSR 


015226 








• WORD 


004767 


000062 






JSR 


004767 


000306 






JSR 


004767 


000302 






JSR 


010367 


000040 






MOV 


026767 


000032 


000032 




CMP 


003407 








BLE 


016767 


000022 


00002b 


2S: 


MOV 


016767 


00001b 


00001b 




MOV 


000207 








RTS 








LIMERR: 




004567 


164702 






JSR 


015273 








.WORO 


000733 








BR 



LIMITS IS CALLED TO ASK THE USER FOR BOTH 
THE HIGH AND LOU UN I BUS ADDRESS LI, ITS FOR 
THE IMPENDING TEST. THE TUO LIMITS ARE LEFT IN 
BLOCK NUMBER FORM AT LOCATIONS HILIH AMD 
LOLIM (THEY ARE ALSO PUT IN LOSAV AND HISAV FOR 
LATER USE BY THE ROUTINE DONE). A VALIDITY CHECK 
IS MADE TO MAKE SURE THE INDICATED SPAN 
IS A VALID TEST SPAN. 

LIMITS: 

RS. SPRINT ;GC TO PRINT ROUTINE 

HIMESS 

PC.INUM ; ASSEMBLE THIS NUMBER. 
PC THRR 



HILIH: 
LOLIM: 



.WORD 
.WORD 



PC, THRR 
R3.HILIM 
RSJPRINT 
LONESS 
PC.INUM 
PC, THRR 
PC, THRR 
R3. LOLIM 
HKIM.LOLIM 
LIMERR 

HILIM, HISAV 
LOLIM, LOSAV 
PC 

RSJPRINT 

ERRMESS 

LIMITS 

0 
0 



;G0 TO PRINT ROUTINE 
•.ASSEMBLE THIS NUMBER 



;IF LOLIM IS GREATER 
;THAN HILIH THEN GOTO 
; LIMERR. ERROR 
STORE THE LIHITS IN 
;SAVE REGISTERS. 
; RETURN 

;G0 TO PRINT ROUTINE 
; WRITE AN ERROR HESSAGE 
;AND TRY AGAIN. 



: THESE ARE INTERHEDIATE STORGE REGISTERS: 
LOSAV: .WORD 0 
HISAV: .WORD 0 
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3922 
3923 
3924 
3925 
3926 
3927 
3929 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
39% 
3947 
394B 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3956 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
397C 
397; 



014072 
014074 
014076 
014100 
014104 
014110 
014114 
014120 
014122 
014126 
014130 
014134 
014140 
014144 
0141% 
014150 



0050% 
005002 
005003 
012705 
005737 
0127% 
004767 
005726 
105737 

100375 
0137% 
04271S 
02271b 
001011 
005726 
005716 



014152 0C1763 



014154 
014160 
014164 
014166 
014170 



014174 
014200 

014202 
014206 
014212 
014214 
014216 



012716 
004767 
005726 
000755 
004767 



022716 
001350 

012716 
004767 
005726 
005716 
001415 



177771 
177562 
000076 
000220 

177560 

177562 
177600 
000177 



0G0134 
000154 



000144 
000015 



000012 
000126 



THIS ROUTINE IS CALLED TO ASSEMBLE AN 18-BIT 
NUMBER FROM THE TTY AND TRUNCATE IT DOWN TO 

£ CALL IS MADE THUS: 

JMP PC.INUM 
RES: .WORD 0 
THE 

TRUNCATE! 
RTS RETU1 

NOTE THAT THE NUMBER SHOULD BE SPECIFIED 
IN OCTAL DIGITS. AN CHARACTERS WHICH DO NOT 
MEET THIS SPECIFICATION IN THE INPUT STRING 
WILL CAUSE AN ERROR WHICH WILL BE SIGNALED BY 
A * ON THE TTY FOLLOWED BY A RETRY. 



NUMBER IS ASSEMBLED AND T 
iCATED NUMBER IS LEFT IN R 
RETURN IS MAOE. 



HE RESULTING 12-BI T 
RES. WHEN AND 



*NUM: 



S: 



2$: 



CLR -(SP) 

CLR R2 

CLR R3 

MOV 1-7, R5 

TST SlTKB 

MOV f>.-(SP) 

JSR PC.tYPIT 

TST (SP)* 

TSTB 3tTKS 

BPL IS 

MOV StTKB.-(SP) 

BIC •177600. (SP) 

CMP 1177, (SP) 

TST (SP5+ 

TST (SP) 



BEG IS 



MOV I'v.tSP) 

JSR PC.tYPIT 

TST (5P)+ 

BR IS 

JSR PC.TYPIT 



CMP 115, (SP j 

BNE IS 

MOV 112. (SP) 

JSR PC.tYPIT 

TST (SP)* 

TST (SP) 

BEG 4$ 



;PUT A ZERO MARKER ON 
;SET UP THE TEMPORARY 
; STORAGE AND COUNTER 
•.REGISTERS. 



;WAIT FOR A CHARACTER 

GET IT ONTO THE 
STACK 

IS IT RUBOUT* 

IF NOT GOTO 2S 

IF IT WAS A RUBOUT 

FIRST SEE IF THEE 

IS A PREVIOUS 

CHARACTER ON THE STACK. 

IF THERE WAS NO PREVIOUS 

CHARACTER TAKE NO 

RUBOUT ACTION AND 

GO WAIT AT IS FOR 

THE NEXT CHARACTER 

IF THERE WAS 

A PREVIOUS CHARACTER 

PRINT A SLASH 

IF THE LAST INPUT 
CHARACTER WAS NOT 
RUBOUT ECHO IT 
IS IT CR. 

NO. BRANCH TO IS FOR 
NEXT CHARACTER. 
YES. PRINT A LF 



START TO ASSEMBLE 
THE NUMBER. IF THE 
STACK IS AT 'HE 
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3972 
3973 
3974 
3S7S 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
398S 
398S 
3986 
3987 



3989 
3990 

m 

3993 
3994 
399S 

3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4305 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
40 ib 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4C 
4C 
4027 



014220 012604 

014222 062704 177710 

014226 002022 

014230 062704 000010 

014234 002417 

014236 005205 

014240 001415 

014242 004767 00005H 



014246 010402 
014250 000761 



014252 
0142S4 
Q142S6 
014262 
01M26H 
014270 
014272 



014274 
014274 
014300 
014302 
014304 
014306 
014312 
014314 
014316 
014320 

014322 
014326 
014332 
014336 
014340 
014344 
0143% 
014354 



005205 
001403 

004767 000040 
000773 

004767 000022 

005726 

000207 



004567 164460 
015237 
005726 
001376 

000167 177560 

000241 

006002 

006003 

000207 

004767 177754 
004767 177760 
004767 177754 
000207 

105737 177564 
100375 

116637 000002 177556 
000207 



4$: 



5$: 



MOV 
POO 
BGE 
ROD 
BLT 
INC 
BEQ 
JSR 



MOV 

BR 

INC 
BEQ 

8 R 

JSR 
TST 
RTS 



(SPH.R4 

•-70.R4 

INERR 

■10. RM 

INERR 

R5 

INERR 
PC , THRR 



R4.R2 

35 

R5 
5S 

PC, THRR 
4$ 

PC.ONER 
(SP)+ 
PC 



ZERO MARKER WE ARE 
OONE. SO GOTO 4S 
CHECK TO SEE IF 
THE CHARACTER IS A 
VALID OCTAL DIGIT. 
IF NOT GOTO INERR. 

ARE THERE TO MANY DIGITS. 
MORE THAN 6. 
ROTATE THE DOUBLE 
LENGTH -MORO- MADE UP 
OF THE DIGITS PROCESSED 
THUS FAR 

MAKE THIS NEW DIGIT 
PART OF THE NUMBER. 
LOOP TO GET THE REST OF 
THE NUMBER 

MAKE SURE THE NUMBER 
HAS BEEN RIGHT JUSTIFIED 
PROPERLY. 



; AND RETURN CONTROL. 



: ERROR HANDLER FOR THE INUM ROUTINE. 
; RETURNS TO THE CALLING ROUTINE, LIMITS, TO ASK 
:FOR THE PARAMETER AGAIN. 
tNERR: 

RS. SPRINT ;G0 TO PRINT ROUTINE 

INRMES 

ISP)* ; CLEAR JUNK OFF THE 

IS 'STACK 
INUM ;THE ROUTINE LIMITS. 

;ROUTIfC WHICH ROTATES 



IS 



ONER: 



THRR: 



TYPIT: 



JSR 
.UORO 
TST 
BNE 
JNP 
CLC 
ROR 
ROR 
RTS 



JSR 
JSR 
JSR 
RTS 
TSTB 
BPL 
MOVB 
RTS 



R2 
R3 
PC 

PC, ONER 
PC, ONER 
PC, ONER 
PC 

3«TPS 

TYPIT 

2(SP),3«TPB 
PC 



3 ONE 



TEHP2 AND TEMP; 
•BIT TO THE RIGHT 
; TREATING THEM AS A 32-BIT 
; OPERAND. 

; ROUTINE WHICH CALL 
;ONER 3 TIMES. 



01435 
01436 



172100 

004767 000454 
012700 172100 



; TYPIT TAKES THE 
;UORD 2 BYTES UP IN 
THE STACK AND "PRINTS* 
:IT ON THE TTY 

;MOSPAR IS CALLED TO CHECK OUT THE POSIBILITY OF TURNING ON MOS 
; PARITY DURING THE BRANCH GOBBLE TEST. FIRST MOSPAR SEES UHAT 
MOS PARITY REGISTERS EXIST AND THEN IFOME ARE FOUNO TOY 
;ARE ENABLED AND THE INTERRUPT VECTOR IS SET TO TRAP TO PARERR A RO-TINE 
; WHICH WILL NOTIFY THE USER OF THE ERROR AND ITS LOCATION. 

PAREGS=172100 

MOSPAR: JSR PC.MPVECT ;SET THE PARITY ERROR TRAP VECTOR. 

MOV IPAREGS.RO ;GET READY TO LOOK AT THE POSSIBLE 

PARITY REGISTERS PRESENT. 
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4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

•039 

^040 

4041 

4042 

4043 

4044 

4045 

40% 

4047 

404B 

4049 

40S0 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

m 

4083 



014366 012701 

014372 012737 

014400 005037 

014404 005067 



014410 005710 



014412 
014416 
014420 
014424 

014426 
014430 
014434 
014440 
014442 
0144% 
014452 



014454 
014456 
014462 
014%4 
014466 

014472 
014474 
014500 
014502 
01%10 
01451b 
014520 



005767 
100403 
004567 
015102 

0100% 
004767 
004567 

015122 
005367 
012710 
000401 



022626 
062700 
005201 
002751 
005767 

100403 
004567 
015131 
012737 
012737 
000207 
000000 



177762 
01445* 
000006 
000110 



000004 



000102 
164334 



165306 
164320 

000052 
000001 



000002 
000026 

164260 

001116 
000002 



000004 
000006 



flOV 1-16, Rl 

nov itiP2,ai4 

CLR 916 
CLR MPFL 

;THE REAL REGISTERS ARE LOCATED USING A TINE OUT PLAN WHERE 
{POSSIBILITIES ARE REFERENCED AND IF A TINE OUT OCCURS THEY 
; OR IF NO TINE OUT OCCURS THEN THE REGISTER IS REAL. WHEN A 
{REGISTER IS FOUND IT IS WRITTEN INTO AND READ TO DETERMINE 
;WHAT KIND OF PARITY REGISTER IT IS, CORE OR MOS. IF IT IS MOS THEN THE 
{REGISTER IS SET TO ENABLE PARITY. 

MP1: TST (RO) ; IF THIS INSTRUCTION TIMES OUT THEN 

; THERE IS NO PARITY REGISTER AT THE 
?S IN RO. 

THE TABLE HEADING HAS BEEN OUTPUT. 



BY THE 

ARE NONEXISTENT 
REAL 



TST 
BMI 
JSR 
.WORD 

MOV 

JSR 

JSR 

.WORD 

DEC 

MOV 

BR 



MPFL 
IS 

RS. SPRINT 
MPMES 

RO,-(SP) 

PC,Q2A 

RS!SPRINT 

ICRLF 

MPFL 

•l.(RO) 

MP25 



;G0 TO PRINT ROUTINE 



{OUTPUT AN ENTRY INTO THAT TABLE. 
iC TO PRINT ROUTINE 



:IF A 

MP2: 

MP25: 



TIME OCCURS COME HERE. OR IF THE REGISTER WAS NOT MOS PARI T Y. 



MP3: 
MPFL: 



CMP 
ADD 
INC 
BLT 
TST 

BMI 

JSR 

.WORD 

MOV 

MOV 

RTS 

.WORD 



(SPH, (SP) + 
•2,R0 
Rl 
MP1 
MPFL 

MP3 

R5, SPRINT 

NONPAR 

•ERRTRP,3t4 

I2,3i6 

PC 

0 



{BRANCH IF NOT DONE. 

;SEE IF ANY MOS PARITY REGISTERS HAVE 

{BEEN FOUND. 

;IF NOT DON'T OUT PUT THE NO PARITY MESSAGE. 
;G0 TO PRINT ROUTINE 



014522 

014522 004567 



164222 



IF A PARITY ERROR IS DETECTED THEN A TRAP IS MADE THROUGH LOCATION 
114 TO THIS ROUTINE. HERE THE USER IS TOLD OF THE PARITY ERROR ANO THE 
LOCATION PLUS 2 OF THE INSTRUCTION WHICH CAUSED THE ERROR TO CONE OUT. 
THEN A SCAN IS MADE THROUGH MEMORY. IF THE ERROR DOESN'T COME UP DURING 
THE SCAN THEN THE USER IS TOLD THAT THE ERROR WAS NOT FOUND ON THE SCAN. 
IF THE ERROR IS DETECTED ON THE SCAN THEN THE USER IS TOLD WHAT LOCATION. 
CAUSED THE ERROR AND WHETHER OR NOT MEMORY MANAGEMENT WAS ON DURING THE 
SCAN. IF IT WAS THEN THE PAR INVOLVEO IN RELOCATING THE BAO LOCATION'S 
ADDRESS IS ALSO GIVEN TO THE USER SO HE CAN TAKE THE GIVEN 
ADDRESS AND RELOCATE IT USING THE PAR GIVEN TO FIND THE REAL NEHORY 
ADDRESS CAUSING THE PARITY ERROR. WHEN THIS HAS BEEN DONE THE TEST WHICH 
WAS IN PROGRESS WHEN THE ERROR WAS ENCOUNTERED IS RESTARTED. USING 

.THE PARAMETERS WHICH THE USER LAST INPUT TO THE PROGRAM. 

PARER2* 

JSR R5, SPRINT ;G0 TO PRINT ROUTINE 
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4084 

408S 

4086 

4087 

4088 

408*9 

4090 

4091 

4032 

4093 

4094 

4095 

40% 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

H109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

412H 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

413e 

4139 



014526 
014530 
014534 
014536 
014542 
014546 

014550 
014554 
014556 
014562 
014566 
014572 
014576 
014600 
014604 
014610 
014614 



007000 
004567 
015125 
004767 
004567 
015122 

012700 
060700 
062700 
010037 
00SO37 
012700 
060700 
062700 
010037 
005037 
005003 



014616 

014616 012301 
014620 000776 



014622 
014626 
014630 
014634 
014640 
014644 
014650 
014652 
014656 
014660 
014662 

014666 
014674 
014676 
014702 
014706 
014712 
014716 
014722 
014726 
014730 
014734 
014736 



062703 
010316 
062703 
010367 
004767 
004567 
015147 
004567 
001502 
010116 
004767 

033727 
001423 
004767 
004767 
004767 
004767 
042703 
062703 
011316 
004567 
015154 
004767 



164224 

165200 
164212 



000052 

177772 
000114 
000116 
000176 

177772 
000004 
000006 



.WORD 

JSR 

.WORD 

JSR 

JSR 

.WORD 

MOV 
ADD 
ADD 
MOV 
CLR 
MOV 
ADD 
ADD 
MOV 
CLR 
CLR 
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PARERR ;TELL THE USER A PARITY ERROR OCCURRED. 

R5. SPRINT :G0 TO PRINT ROUTINE 

PERMES ;TELL THE USER WHAT INSTRUCT CAUSED THE EP°GP. 
PC 02A 

" ' ' ;G0 TO PRINT ROUTINE 



R5! SPRINT 
SCRLF 

•PARR3-..R0 

PC.RO 

•-6.R0 

RO.ilPARVEC 

3IPARVEC+2 

•PARR4-..R0 

PC.RO 

•-6.R0 

RO.iiERRVEC 

3IERRVEC+2 

R3 



;SET THE TIME AND TRAP VECTORS SO 
|THAT THE SCAN CAN BE MADE 



CONT: 
IS: 



177776 

000002 
000126 
165076 
164110 

164102 



165054 

177572 000001 

177420 
177414 
177410 
177404 
177761 
172340 

164024 

165000 



MOV (R3)+,R1 ; PERFORM THE SCAN. EITHER THIS INSTRUCTION. 

BR IS ;WILL TIME OUT OR THE PARITY ERROR WILL 

;ONCE AGAIN OCCUR SO THAT CONTROL WILL 
;BE TRANSFERRED OUT OF THIS LOOP ONE WAY 
jOR ANOTHER. 

IF THE PARITY ERROR IS AGAIN ENCOUNTERED THEN THIS PROGRAM WILL 
RECIEVE CONTROL THROUGH A TRAP THROUGH VECTOR 114. HERE THE USER 
IS GIVEN THE ADDRESS OF THE LOCATION WHICH CAUSED THE PARITY ERROR 
DURING THE SCAN. THE USER IS ALSO TOLD WHETHER OR NOT MEMORY MANAGEMENT 
IS ENABLED OR NOT. IF IT IS ENABLED THEN THE PAR INVOLVED WITH 
THE ADORESS RELOCATION IS ALSO GIVEN TO THE USER. 



PARR3: ADO I-2.R3 

NOV R3,tSP) 

AOO 12 R3 

MOV R3 SAVPER 

JSR PC,02A :GIVE 

JSR RSlSPRINt 

.WORD LOCBAO 

JSR RS.SPRINT 

.WORD RECDAT 

MOV R1,(SP) 

JSR PC, 02A 

BIT 3ftSR0.ll 

BEQ 2S 

IS: JSR PCJHRR 

JSR PC.THRR 

JSR PC.THRR 

JSR pcIthrr 

BIC 1177761, R3 

ADD IKIPAR0.R3 

MOV (R3).(SP) 

JSR RS.SPRINT 

.WORD KPARM 

JSR PC.02A 



;R3 CONTAINS THE ADDRESS PLUS 2 
•OF THE LOCATION CAUSING THE ERROR. 



THE USER THIS ADDRESS. 
;G0 TO PRINT ROUTINE 
;TELL THE USER THIS IS 
;G0 TO PRINT ROUTINE 

:GIVE HIM THE BAD DATA. 



THE ADORESS AND 



:SEE IF MEMORY MANAGEMENT WAS JSE: 
DURING THE SCAN THROUGH MEMORY. 
IF IT WAS THEN ESTABLISH WHICH KIPAR 
IS INVOLVED WITH THE RELOCATION OF 
THIS BAD ADDRESS. 



:G0 TO PRINT ROUTINE 
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4140 

4141 

4142 

4143 

4144 

4145 

414b 

4147 

414B 

4149 

4150 

4151 

4152 

4153 

4 ISM 

4155 

415* 

415? 

4158 

4159 

4160 

41bl 

4152 

4163 

4164 

4165 

4166 



014742 000403 



014744 
014744 
014750 
014752 
014756 
014760 
014764 



004567 164010 
015173 

004567 164002 
015122 

016703 000002 
000714 



014766 000000 



014770 
014770 
014774 



014776 
015002 
015004 
015010 



004567 163764 
015062 



012706 000500 
000005 

004737 000124 

012707 015014 



BR 



JSR 
.WORD 
RETPR: JSR 
.WORD 
MOV 
BR 



SflVPER: .WORD 
PARR4: 

JSR 
.WORD 



MOV 
RESET 
JSR 
MOV 



015014 004767 177336 



1$: 



JSR 
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RETPR 



;G0 RESTART THE TEST UHICH WAS IN PPCG&ES1 



RS, SPRINT 

NOKTll 

R5.JPRINT 

jcrlf 

SAVPER.R3 
CONT 



;G0 TO PRINT ROUTINE 
;THE SCAN SO TELL 



;THE ADDRESS GIVEN FOR THE EPPO". t hEn 
; RESTART THE TEST WHICH WAS IN PROGRESS 
WHEN THE ERROR OCCURRED. 



R5,$PRINT ;G0 TO PRINT ROUTINE 

NOtlND ; TELL THE USER THAT IS THE CASE AND 

; RESTART THE SCAN WHICH WAS IN PROGRESS 
:WHEN THE ERROR WAS ORIGINALLY 

;ENCOUNTERRED. 

•500, SP ; RESTART THE TEST UHICH WAS INPROGRESS 

; WHEN THE ORIGINAL PARITY ERROR WAS FIRST 
PC.31UHERE ;ENC0UNTERRED. SEE IF RELOCATION INTO THE 
•lJ.PC IFISRT 4K BANK IS NECESSARY. 

PC.MOSPAR ;G0 RESET THE PARITY REGISTERS BEFORE 
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4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

417S 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

418S 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

419S 

41% 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4213 

4216 

4217 

4218 

4219 

42?0 

4221 

^22= 



015020 00S767 163726 

01502M 001402 

015026 000167 176112 

015032 000167 175654 




015036 
0150S2 
015044 

015054 
015060 



015062 
015070 
015076 
015102 
015110 
015116 
015122 
015125 
015131 
015136 
015144 



015147 
015154 
015162 
0151" 
0151 
015200 
015206 
015214 
015222 
01S226 
015234 
015237 
015243 
015250 
015256 
015264 
015^ 



01* 
015300 
015306 
015310 
015316 
215324 



012700 
060700 
700 

37 
000207 



041523 
046517 
006505 
005015 
054524 
046102 
005015 
120 
015 
040520 
005015 



040 
005015 
047440 
036522 

015 
020061 
005015 
046040 
006477 
047514 
044515 

811 

045440 
0240% 
047040 
037012 
116 
046101 
000012 
005015 
044 1C3 
046102 



177464 

177772 
000114 
000116 



047101 
046120 
000012 
040520 
042440 
042105 

000 
036503 
047012 
044522 

000 



040510 
052113 
020116 

000 
045412 
043117 
044510 
046511 
000012 
020 127 

124 
005015 
052412 
030524 
320131 
006451 

000 
052117 
042111 

051102 
043440 
006505 



041440 
052105 

044522 
040516 



000 
020117 
054524 



r30l04 
030461 
040520 

030524 
000106 
044107 
052111 



25: 



TST 
BEQ 
JMP 
JMP 



MMAVA 
2S 

REPET2 
SP0T2 



{STARTING EITHER A MEMORY MANAGED 
;0R NON MEMORY MANAGED TEST. 



000 
042523 
037461 
051117 



053040 
006441 

047101 
041117 
000012 



.ROUTINE USED TO SET THE TRAP VECTOR 114. 
MPVECT: MOV IPARER2-..R0 
ADO PC.RO 
ADD l-6.R0 
MOV R0.6H14 
CLR 3tll6 
RTS PC 

•MESSAGES USED FOR THESE PARITY ROUTINES. 
NOTIND: .ASCI 2 'SCAN COMPLETE' < 15 >< 12 > 



MPMES: .ASCII < 15>< 12> 'PARITY ENABLED' 



SCRLF: .ASCIZ <15><12> 
PERMES: .ASCIZ *PC=* 

NONPAR: .ASCIZ <15><12>'N0 PARITY' <15><12> 



; THESE ARE MESSAGES USED FOR COMMUNICATIONS 
jON THE TTY BY THE PROGRAM. 

LOCBAO: .ASCIZ ' HA0» 

KPARM: .ASCIZ <15><12>'KT11 ON PAR=' 



N0KT11: .ASCIZ <15><12>'KT11 OFF' 

HIHESS: .ASCIZ <15><12>'HIGH LIMIT''<15><12> 



044514 LOMES-: .ASCII 'LOU LIMIT' 



INRMES: .ASCIZ "'<15><12> 

MMMESS: .ASCII <15><12>'USE KT11' (Y OR N)*<15> 

.ASCIZ <12>'>' 

ERRMES: .ASCIZ "NOT VALID! '< 15' <12> 



IDMESS: .ASCIZ '15><12> 'BRANCH GOBBLE" < 15>< 12> 



.EVEN 
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4, 
4i 
4225 
4226 
4227 
4, 
4, 
42 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
42% 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
"271 
4272 
4273 
4274 
4275 
427b 
4277 
4278 




8 



015332 
1 
1 
1 

015342 
015346 
015350 
0x5352 
015354 
015356 
015360 
015362 
015364 
015366 
015370 
1 
1 

015376 
015400 
015402 
015404 
015406 
015412 
015412 
015414 
015416 
015422 
015426 
015430 
015434 
015440 
015442 
0154% 
015452 
015456 
015460 
015462 
015%4 
015470 
015474 
015500 
015506 
015514 
015516 
015522 
015526 
015530 
015532 
015534 
015542 
015546 
015550 



10703 
162703 
010304 
005204 
005013 
000261 
105513 
100402 
105214 
000773 
102401 
000000 
42 
105214 
103402 
102001 
100401 



I I till 



000004 



000137 015474 



000000 
000027 
016700 
012701 
060701 
062701 
012703 
06 0703 
062703 
010367 
016702 
014140 
005302 
001375 
010067 
000177 
016700 
162767 
026767 
101414 
016701 
011060 
005720 
005301 
001373 
016737 
000177 
104400 
000722 



; THE FOLLOWING IS THE CODE TAKEN DIRECTLY FROM 
;THE PDP-11 FAMILY INSTRUCTION EXERCISER DZQKA-A. 



MARKER: 
FIRST: 



1J: 



2$: 



000130 
177770 

177772 
000040 

177772 
177736 
177736 



177722 
177716 
177712 

000002 177704 
177700 000040 

177672 
17777b 



177652 177570 
177b44 



INCB1: 

RTAD: 

LAST: 

STRTAD 

LENGTH 

FIRST1 



ABC: 



RELO: 



REL01: 



RET: 



.WORD 
BR 

.WORD 

MOV 

SUB 

MOV 

INC 

CLR 

SEC 

ADCB 

BMI 

INCB 

BR 

BVS 

HALT 

CLV 

INCB 

BCS 

BVC 

BMI 

HALT 

JMP 

.WORD 
.WORD 
MOV 
MOV 
ADD 
ADO 
)V 



ADD 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

JMP 

MOV 

SUB 

CMP 

BLOS 

MOV 

MOV 

TST 

DEC 

BNE 

MOV 

JMP 

T RAP 

BR 



125252 

.+4 

0 

PC,R3 
»4,R3 
R3.R4 
R4 

(R3) 

(R3) 

2S 

CR4) 

IS 

.♦4 



(R4) 
INCB1 
INCB1 
.♦4 

3IREL0 



l+LAST-FIRST/2 

HI.RO 

•LAST-.,R1 

PC.R1 

•-6.R1 

•RELO-. f R3 

PC.R3 

•-6.R3 

R3.RTAD+2 

LENGTH, R2 

-<R1),-(R0) 

R2 

ABC 

RO.STRTAD 

astRTAD 

STRTAO.RO 

•2.STRTAD 

STRTAD, LO 

RET 

LENGTH.R1 
(R0),-2(R0) 
(R0) + 
Rl 

REL01 

STRTAD. 21177570 
aSTRTAO 

FIRST1 
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4279 015S52 000000 HI: .WORD 0 

4280 01S5S4 000000 LO: .WORD 0 
4281 
4282 
4283 

4284 015556 tODAR: 

4285 000001 .END 



TEST DDQAB-A 0-124K MEMORY EXERCISER 



DDGABA.Pll 


CROSS REFERENCE TABLE 


ABC 


015456 


42611 


4263 


ADRESS 


002247 


1620 


I795i 


ALLFLG 


004706 


23221 


2412 


ftSTERI 


012442 


2292 


34841 


BANKS 


012204 


2368 


2541 


BEGIN1 


003272 


2008 


2010 


BELL 


001515 


1640 


16571 


BIT12 = 


010000 


13021 


1837 


BIT13 = 


020000 


13011 




BIT14 = 


040000 


13001 


1369 


BIT1S = 


000100 


12991 




BIT6 = 


000100 


13051 




BIT8 = 


000400 


13041 


3423 


BITS r 


001000 


13031 


1601 


BLKCNT 


004076 


2138* 


2146* 


BPTVEC= 


000014 


12721 




BRANCH 


012542 


1426 


36141 


C = 


000001 


12521 




CKSUR 


011752 


2020 


2376 


CONST 


012263 


2461 


2560 


CONT 


014616 


41031 


4148 


COUNT 


000756 


15221 


2884* 


DIGITS 


002271 


1588 


1616 


DIGTA8 


002232 


1695 


17881 


DISPAR 


007144 


2742 


27601 


OISPLA= 


177570 


12931 


1605* 


DONE 


004624 


2290 


2297t 


OONEO 


002504 


1847 


18571 


DONE1 


002574 


1867 


18841 


DONEIO 


003560 


2088 


20941 


DONE 11 


003644 


21161 




DONE12 


003674 


21321 




DONE13 


004070 


21681 


2189 


D0NE14 


004142 


2185 


2187 


DONE1S 


004172 


22031 




DONE3 


002676 


1909 


19141 


D0NE4 


002764 


1920 


19311 


D0NE4A 


003034 


1934 


19471 


D0NE4B 


003104 


1950 


19641 


D0NE4C 


003152 


1975 


1977 


D0NE4D 


003246 


1982 


2006 1 


D0NE5 


003330 


2021 


20301 


DONE6 


003364 


20461 


2071 


D0NE7 


003412 


2048 


20541 


DONE8 


003474 


2067 


2069 


DONEB 


003522 


2075 


2082 1 


DON IT 


013362 


3744 


37781 


EMTVEC= 


000030 


12751 




END 


004522 


22771 




ENDMSG 


012444 


2299 


34851 


EOPHLT 


000250 


13721 


2283* 


ERCNT 


000746 


15171 


1598 


ERRMES 


015273 


3908 


42161 


ERROR 


001174 


1364 


15971 






3212 


3263 


EPRPC 


Q014&3 


16H 


16521 
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2433 2453 2501 2521 2530* 
34541 

20181 2293 
2331 



3426 

21731 2180 2204 



2883 3028 3190 3249 3277 3349 34221 
34631 

2928* 2932* 2942* 3083* 3117* 3194* 3220* 

1663 17991 

1825* 2109* 2140* 2150* 2160* 2214* 3431* 3498* 



21911 



19821 



2074 1 



2285 

1600* 1604 1823* 3428 

289B 2906 2914 2922 3049 3056 3063 3070 31Q1 3109 3205 

3361 3368 3375 3382 



TEST DDGAB-A 0-1 24K MEMORY EXERCISER 



DDQA8A.P11 


por\cc dc c cdc hire 


1 HULL 


ERRTRP 


00111b 


1 1 

1 Jbl 




ERRVEC= 


000004 


t PL.Q» 


1747* 






cUfp* 


cyaH* 






Cf "J 




FINISH 


004S64 


cJUJ 


doi n# 
cJlUft 


FIRST 


01 5334 


Mccoft 


Mcbl 


FIRST1 


01541b 


Jbbc 


071 7 
Of if 


FPEVEC= 


000244 


1 colli 


Or Of * 


HI 


015552 


Jbb"* 


HILIM 


Q140b2 


JbMM 


dbbU 


HIMESS 


01520b 


*3QQQ 
Joo^ 


upncft 

"CUD I 


HISAV 


014070 


^7P^ 
Of CO 




HIT = 


104400 


1 J Jbl 


t Q7C 
lOf b 


ICNT 


000742 


t c t c« 


lodU* 


I COUNT 


000744 


lblbl 


PQQQ 
CO DO 






JMJc* 


J*1Jb* 


IDMESS 


015310 


*3C 1 7 




INCB1 


015404 






INERR 


014274 


d*Jf b 


OQ7Q 


INRHES 


015237 




MclUI 


I NUN 


014072 


ounc 


oQQn 
Jo^U 


IOTVEC= 


000020 


t D70ft 
lCf ol 




KIPARO= 


172340 


1 IPC* 

1 OCDft 


llrU 


KIPAR1= 


172342 


1 IPC* 

loco I 


1 7nc 

if Ub 


KIPAR2= 


172344 


1 dcfl 


f 7HC 
If UD 


KIPRR3= 


1723% 


1 QPQft 

idea! 


if Uf 


KIPAR4= 


172350 


1 OPQft 
1 OCT I 


1 7TIQ 
if Ua 


KIPAR5= 


172352 


i Q^rift 
laJui 


1 7flQ 
if in 


KIPARS= 


172354 


1 Joli 


171 n 
If 1U 


KIPAR7= 


17235b 


lOOCm 


i uao 
l"od 


KIPORO= 


172300 


1 01 c» 


ilob 


KIPDR1= 


172302 


i *a 1 7» 
idlf I 


Cf DO* 


KIPDR2= 


172304 


1 01 Qft 

1 dial 


ccc^* 


KIPDR3= 


172306 


1 Q1 Qft 


PQ1 7* 


KIPORM= 


172310 


IJCUft 


PfilQ* 
CO ID* 


KIP0R5= 


172312 


1 Ml ft 
1 Jcl ft 




KIPOR£>= 


172314 


1 dec* 




KIP0R7= 


17231b 


1 dcdi 


1 UQQ 

i"oo 


KM = 


000000 


1 DCQft 

icb:!! 




KPARN 


015154 


"loo 


UPftflft 


KPOR = 


07740b 


dbUdl 


Jf Ub 


LAST 


015412 


UDUQft 
McMTJft 


UPC t 

icbi 


LDCOMP 


010254 


mi i 

dUl 1 


^niCft 


LDDISP 


000750 


1D101 


1DUJ* 






C1DU 


ppn# 

CCiw* 


LDMHO 


0071% 


1 QtftQ 


iuf u 


LDNORM 


0102bb 


oni P 

JUlC 


on i u 

Jwi i 


LENGTH 


015414 


UPC 1 ft 
"CD I ft 


"CDU 


LIMERR 


014052 


JODU 


topi 


LIMITS 


013750 


3639 

www J 


3709 

w* w J 


LO 


015554 


3b70* 


3748* 


L0C8AD 


015147 


4122 


41991 


LODAR 


01555b 


1754 


17b8 


LODFLG 


012540 


36111 




^ODFLO 


00203b 


17411 


1743 


lOGICA 


004bS4 


1367 


2009 
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2030 
1839* 

m 


2054 
1847* 

40^9** 


2084 
18b7* 

4lJS* 


2253 

1920* 

2253* 


2337 

1934* 

2325* 


2549 

1950* 

2337* 


2b53 

1982* 

2549* 


40b4 

2021* 

2bl5* 


2030* 
2b48* 


2048* 
2b53* 


2054* 
2b88* 


42521 


4278 




















37b2* 
3bb2 


37b5* 
3723* 


37b7 
3743 


3770* 
3751 


3839* 
37b2 


4252 
3800* 


42791 
3893* 


3900 


3903 


39111 




3831 
1929 
2011* 
2933* 


3871 
19b0 
2288* 
2944 


3903* 
1993 
2289 
3010 


39151 
2001 
2338* 
3013 


2240 

2411* 

3035 


2b04 

2432* 

3089 


2b28 

2452* 

3125* 


2b99 

2478* 

3151 


2717 

2500* 

322b* 


3290 

2520* 

3237 


343C 
3392* 


42471 
3980 


39991 




















389b 


39331 


4004 


















1704 
1892 
2225* 
2815* 


2772* 
1918* 
2248* 
2828* 


3700 

2247* 

2770* 


4135 

2583* 

2813* 


2773* 
2827* 


2781* 


2789* 


37% 








1711 
2223* 


2774* 
2b93* 


3714* 
27b7* 


3701 
















27b9* 


281b* 




















2771* 






















4253 






















lb04* 
2214 
193b 
30181 


lbOS 

2339* 

1952 


1824* 
3422* 
1984 


1825 

3428* 

2222 


2108* 
3430* 
2582 


2109 
3431 
2b92 


2139* 
3497* 
27b4l 


2140 
3498 
2810 


2149* 


2150 


2159* 



39061 

38871 3909 

3830* 42b8 42801 



4284 1 

1759* 1763 1777* 
230b I 
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wOLIM 

LOfCSS 

LOSAV 

L0SEG1 

L0SEG2 

L0SEG3 

L0SEG4 

LOSFL 

LSI 

LSTLOC 
MARKER 
MMABTQ 
MMABT1 
N?1ABT2 
MMAVA 

MffCSS 

mvcc = 

MOSPAR 

MPfL 

*TCS 

rf»vECT 

MP1 

W»2 

f*»2S 

MP3 

N = 

NOFirc 

NOKT11 
NOfffAR 
NOTIfO 
OfCR 

02fl 

PARAVA 
PARCSR= 
PAREGS= 
PRRERR 
PARER2 
PARITY 
PARPAT 
PARR3 
PARRH 
PARTAB 
PAPVEC= 
PAT 
PC 



8 



OlHObb 
01337M 
013444 
013b% 
01372b 
013724 
002242 
0021b4 
015332 
0072H4 
00727b 
00745 4 
000752 

015243 
000250 
01435b 
014520 
015102 
01503b 
014410 
014454 
01445b 
014502 
00001 0 
007021 
015173 
015131 
0150b2 
014312 
0017M2 
00711b 
172100 
172100 
007000 
01 U S22 



014b22 
014770 
001722 
000114 
012241 
7.000007 



3bb7 

3895 

3724 

3b5b 

3b78 

3837 

3b55 

3*92* 

17941 

1758* 

42271 

1850 

1902 

2820 

1%1 

27b5 



12811 

3bl9 

4031* 

4044 

4025 

40381 

4029 

4052 

40bl 

12551 

271b 

4144 

40b3 

415b 

3993 

lb28 

1493 

27381 

40241 

2b83 

40821 

m, 

4091 

40% 

lb78 

2b87* 

2372 

12431 

14b0* 

1618* 

1773 

193b* 

2047 

2128* 

2207 

2321* 

2410* 

2513* 



3724* 

42081 

3793 

3725 

3778 

3842 

3712 

3795* 

18b0 

17741 

1919 

1%9 

28251 

1481 

2802 

421 It 

1850* 

40251 

4041 

4188t 

41771 

4058 

40551 

40561 

40b4l 

27311 

42031 

41931 

4l85t 

40051 

lb33 

20bb 

2747 

402b 

27281 

4177 



411bl 
4154i 

m 

34591 
137b* 
1473* 

1951 

2051* 

2132 

2218 

234b* 

2424* 

251fc* 



3743 


374b 


37bS 


3771* 


3798* 


3899* 


3900 3904 


39121 


3825 
379? ■ 


3904* 


39141 












§£?: 

38701 

JOUO 
















1937 
27881 


1985 


2b94 


27801 










15191 
3bl5* 


JfcSS. 


183b* 
41b7 


1841* 


1 AAA 

1890 


• A • # 

191b 


2220 2245 


2326* 


1902* 

41bb 

4050* 


1919* 
4059 


1937* 
40b7i 


1%9* 


1985* 


2b94* 


2820* 





4010 

171bl 

2184 



4084 
2070* 



1395* 
1495* 

m 

1952* 
2057* 
2148 
222g» 
2349* 
242b* 
2519* 



232b* 233b* 2S9C 



4011 
2594 
275CI 



4012 
2bb3 
275b* 



4047 



4087 4120 412b 41 39 



21b7* 218b 2188* 2340* 252b* 2%1 2991 3C40 3C94 



2745* 27%* 4094* 40%* 



i: m 



1402* 
1497* 
lb44* 
1828* 
19b8 
20b0 
2157* 

!* 

2431* 
2536* 



140b* 
1500* 

{SI* 
1983 
2053* 
21b8 

2448* 
2551* 



1407* 
1531* 

wr 

1984* 

207b 

2172 

m 

2451* 
2554* 



1410* 
1558* 
1702* 
1849* 
2019* 
2079* 
217S* 

m 

24b2* 
2Sbl* 



1413* 

15bb* 

1717* 

1858* 

2020* 

2083 

2178 

Kk, 

2472* 
2571* 



141b* 

1572* 

173b* 

18b5 

2024 

2090* 

2181* 

2274* 

2373* 

2474* 

2572* 



1422* 

1579 

1738* 

1870* 

2027* 

210b* 

2191 

2285* 

237b* 

2477* 

2573* 



1425* 

1584* 

1745* 

1885 

2032 

211b 

2194* 

2493* 
2582* 



1438* 

lbOb* 

17b0* 

1915 

203b* 

2121* 

2197 

2304* 

2404* 

24%* 

259H* 



1450* 

lb!2* 

1755* 

1935 

2038* 

2123 

2200* 

230b* 

240b* 

2499* 

2bb3* 



<WLG 
PERfCS 
PERRFL 
PEJ5TR 
PflVE 
PFOUR 
PFSTK 
PFVFC = 
PIRQ = 
PIRVEC= 
PKH = 
PLACE 
POKE 
PPG.? 
PRG^fi 
PRG2R 
PRG3 
PRG3FL 
PRG3H 
PRG4 
PRG4A 
PRG4H 
PPTY4 = 
PRTY7 = 
PSIX 
PSH = 
PSW - 
PTHREE 
PTMO 
PJH = 
PUP 
PURFfil 
QUEST 
RflHTST 
PECO 
RECDAT 
PEG = 
RELFL 
PELO 
PELOC 

=£-CC C12< 



*ES* OOOAB-A 0-1 24K HEMORY EXERCISER 
DDGABA.P11 CROSS REFERENCE TABLE 

2666 
2883« 
3028* 
3166* 
3277* 
33%* 
3647 
3725* 
3890* 
3993* 
4097 
4230 

000S02 14591 

006622 1623 

006623 1621 
01512S 4086 
013720 3852 
002362 18291 
000254 14211 
000230 14151 
000560 1474S 1480 
000024 12741 1475* 
177772 12861 
000240 12791 
000000 12621 
002302 18031 2234 
000162 14051 
004670 1414 23171 
004674 23191 2542 
005144 2350 23751 
006010 1417 25351 
006020 2317* 2398 
012303 2539 34661 
006042 1423 2547t 
UGC132 2558 25631 
0123C4 2553 34751 
00O2CC 12581 
000340 12571 1365 
000270 14241 
0 10000 12631 
177776 12841 1530 
000214 14121 
000200 14091 
030000 12641 
000572 1475 14791 
000720 1505 15091 
0122S7 2445 34621 
004252 2097 2105 
011670 2353 2361 
001502 1631 16551 
004000 12651 
000120 13791 3614* 
015474 4248 4256 
006350 1397 2099 
000754 15211 1529 

2560 34781 



cos 
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2669* 


2684* 


2692* 
2906* 


2706* 


2886* 


2898* 


2914* 


3033* 


3043* 


3049* 


3056* 


3iei* 


3139* 


3193* 


3205* 


3280* 


3285* 


3298* 


3319* 
3413* 
3658* 


3404* 


3405* 


jHQ8* 


3653 


3655* 


3656* 


3727* 


3768* 


3778* 


3799* 


3891* 


3892* 


38%* 


3897* 


3995* 


4008* 


4010* 


4011* 


4120* 


4126* 


4130* 


4131* 


4254 


4257 






1499 


1832 


2324 






$320* 
2714* 


2548* 


26851 


41921 








38651 


3870* 


3873* 




2375* 


2563* 


2707 






2156 
2369 
4124 

3824* 
42661 

2133 
1660 



22181 

2373 2*62 



2151 
1661 



2208 

1700 



26111 

1701 



2760* 


2777* 


2808* 


2810* 


2822* 


2841* 


2875* 


5331* 


2948* 


2957* 
3096* 


2994* 


2999* 


3017* 


3020* 


3070* 


3085* 


3101* 


3108* 


3121* 


3156* 




3241* 


&§; 


3252* 


3257* 


3263* 


3270* 


3341* 
3436* 


3349* 
3490 


3618* 


2*1* 

3619* 


3368* 


3636* 


3382* 
3639* 


3669* 


3673 


3678* 


3686* 


3709* 


3712* 


3718 




3826* 


3838* 


3843 


3862* 


3864* 


387H* 


H?§5* 


3939* 


3957* 


3960* 


3%7# 


3981* 


2991* 




4017* 
4139* 


4025* 
4163* 


4047* 


4066* 


4087* 


4292 




4164* 


4166* 


4178 


4182* 



2697* 2703* 2710 



1499* 1832* 1833* 2324* 



3UUL 



2418 2437 2466 2487 2507 

2589 
2599 



2656 
1831* 



25371 



2554 2561 3403« 



3493 
2379 



3814 
2381 



3854 
2633 



3499* 
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RELOCP 

RELC1 

REL2SK 

REPET1 

REPET2 

REPET3 

RESLOfi 

R£SVEC= 

RET 

RETPR 

ROTATE 

RC T 0 

K~l 

R'AO 

Pk = 



P10 
Rll 
R12 
R13 
P14 
PIS 
R2 



006452 
015522 
012460 
012736 
013144 
013034 
012054 
000010 
0155% 
014752 
011404 
004424 
004464 
015406 



013044 
iv.000001 



='/.00Q000 
=-/.OO0O0l 
=%0COO02 
=X0000C3 
=JC000004 
=Z000005 
='/.000002 



2349 

42711 

2662 

36571 

37161 

3661 

1822 

12691 

4269 

4140 

3257 

22561 

22671 

42481 

13M0I 

1236i 

1627 

1751* 

1940* 

2057 

2581* 

2676* 

2849 

2903 

2977 

3074* 

3140 

3209 

3358 

3667* 

3830 

4093* 

4266* 

3663 

12371 

1915* 

2132* 

3684* 

384H* 

4254* 

12441 

12451 

12461 

12471 

12481 

12491 

12381 

1665* 

1731* 

1904* 

1976 

2585* 

2639* 

2804* 

2850* 

2866* 



2365 
4274 
3425 
3679 
3780 
3672 
34391 

42771 
41451 
3285 



4259* 

2224 

1465* 

i£ 

1942 

2062 

2588* 

2677* 

2851 

2909* 

2978 

3077* 

3141 

3219* 

3365 

3670 

3831* 

4094 

4271* 

3669 

1608* 

1935* 

2148* 

3701* 

3845 

4255* 



2572 

34901 

4169 
36781 



33011 



2767 

1468 

1679* 

1755 

1954* 

2235* 

2600 

2678* 

2854 

2911 

2979 

3088* 

3142 

3236* 

3372 

3683* 

3832 

40%* 

4272 

36821 

1609* 

19S1* 

2168* 

3706* 

3858* 

4261 



26471 



14^S* 

1682* 

1868* 

195S* 

2237 

2602 

2679* 

2856 

2917* 

2980 

3091* 

3143 

3253* 

3379 

3700* 

3834* 

4097* 

3768 

1667* 

1968* 

2178* 

3747* 

3859 

4270* 



3826 

1672* 

1983* 

2191* 

3753* 

3860 

4273* 



1466* 


1467 


1469* 


1484* 


1666 


1678* 


1680* 


1684* 


1733* 


1753* 


1756* 


1769* 


1905 


1908* 


1910 


1921* 


1986* 


1990 


1998 


2226* 


2587* 


2593 


2600* 


2601 


2640* 


2678 


2689* 


2695 


2B05* 


2806* 


2807* 


2811* 


2851* 


2852* 


2854* 


2855* 


2867* 


2885* 


2894 


2902 



4 



2771 


281b 


2817 




1489* 


1548 




1552 


1555* 


1471 


1483* 


1486* 


1488* 


1549* 


1688* 


1697* 


1718* 


1721* 


1728* 


1730* 


m 


17%* 


1748 


1869* 


1871* 


1873 


1922* 


1923* 


192H* 




1927 


1939* 


1958 


1971* 


1972* 


1974 


1991 


1996* 


1999 


2055* 


2056* 


2302* 


2306 


2377* 


2378* 


2379* 


2380* 


2381* 


2382 


2578* 


2611* 


2618 


2624 


2647* 


2649* 


2651 


2654* 


2655 


2b7S 


2680* 


2681* 


2695* 


2698 


27M7* 


2754* 


28H2* 


2843 


28%* 


2859 


2861 


2864 


286b 


2887* 


2890* 


2893* 


2995 


2901* 


2919 


2927* 


2958* 


2959 


2964* 


2%7 


2968 


2%9 


2970 


2989* 
3098 


3015* 


3018* 


3034* 


3037* 


30% 


3053 


3060 


3067 


M 


m 


3109* 


3113* 


3116* 


3128* 


3138 


3139 


3144 


3169* 


3171* 


3172 


3191* 


3197* 


3202 


3260 


3281* 


3288 


3329* 


3331 


3332 


3333 


3334 


3350* 


3490* 


3491* 


3492 


3646* 


3647* 


3648* 


3649 


3662* 


3664 


3704* 


3745* 


3749* 


3767* 


3769* 


3770 


3825* 


3827 


3829* 


3835 


3839 


4026* 


4038 


4046 


4051* 


4056* 


4091* 


4092* 


4098* 


4099 


4177* 


4173* 


4179* 


4180 


4252* 


4261* 


4264 



3838 

1673* 

2024* 

2197* 

3818* 

3861 



167M* 

2032* 

2207* 

3819 

3B62 



1675* 

2047* 

2218* 

3820 

3863 



1676* 

2060* 

2260* 

3821 

4028* 



1677* 

2076* 

2271* 

3822 

4057* 



18M8* 

2083* 

2286* 

3823 

4104* 



1865* 

2116* 

2677 

3842* 

4125 



1885* 
2123* 
3632* 
3843* 
4253* 



1485 

1686* 

1771* 

1922 

2229* 

2605 

2712* 

2812* 

2856* 

2910 



1490* 

1690* 

1851* 

1926 

2230* 

2612* 

2713* 

m> 

2918 



1583* 

1720* 

1852 

1938* 

2236 

2613 

2748* 

2814* 

2859* 

2930* 



1607* 

1722* 

1853* 

1942* 

2239 

2618* 

2756 

2915 

2860* 

293b* 



1608 

1723* 

1866* 

1953* 

2241 

2619 

2757* 

2819* 

2861* 

2937* 



1617* 

1724 

1868 

1957 

2250* 

2622 

2780* 

2826* 

2862* 

2939* 



16%* 

1727* 

1872 

1970* 

2577* 

2624 

2788* 

2840* 

2964* 

2939* 



16%* 

1729* 

1899 

1974* 

2584* 

2638* 

2800 

2849* 

2965* 

2956* 
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R4 =%OOOOOH 



R5 =-'.0CQ005 



savpc 

SAVPC2 

SAVPER 

SAVRO 

SAVR1 

SAVR2 

SAVR3 

SAVRM 

SAVRS 

SCOPE : 

SLP : 

5*! - 



013722 
000122 
014766 
006764 
006766 
006770 
006772 
006774 
006776 
104000 
177774 
040000 
X0O0C06 



2%7* 

m 

3137# 
3208 

mi 

4006* 
12331 
1734* 
18%* 
19%* 
2601* 
2894* 
2975 
3060 
3208* 
3372 
4116* 
42S6* 
12401 
2002* 
2636* 
3132 
3266* 
3974* 
12411 
1639* 
1859* 
2367* 
2640 
2860 
3146* 
♦93* 



4123* 

3811* 

13801 

4119* 

267S* 

2722t 

27231 

27241 

272SI 

2726S 

13371 

1285S 

12601 

12421 

143S* 

1468* 

1SS2* 

1718 

2018* 

2070 

2147* 



2968* 

W 

3138* 
3223* 

ill 

4260* 

1467* 

1754* 

1897* 

1999 

2602 

2895 

2982 

3066* 

3209 

3378* 

4117 

4257* 

1663* 

2086* 

2680 

3133 

3278* 

397S* 

1397* 

1666* 

1861* 

2371* 

2656* 

2862 

3168* 

4137* 

3823* 

13%* 

4147 

2676 



1396 

1436* 

1471* 

1554 

1737* 

2025* 

2074* 

2158* 
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2%9 

m 

3139 
3230 



ffl* M 



4262 
147 
175L 
1898 
2034 
2613 
2902 
2983 
3067 
3258 
3379 
4118 
4258 
1768 
2087 
2848 
3134 
3294 
3977 
1504 
1667 
2133 
2444 
2659 
2865 
317S 
1 



4143 
3851 
1400 
4152 
2721 



2970* 



3* 
3140* 
3231* 



1485* 
1758 
1901* 
2035 
2614* 
2903 
2984 
3097* 
3260 
3407 
4119 
42S9 
1770 
2089 
2869* 
3135 
3326* 
398S 
1528 
1683* 
2151* 
2460* 
2681 
2867 
3198* 
s* 



4145* 
38661 



1400* 

1437* 

1473 

1555 

1750 

2026* 

2077* 

2171* 



1405* 

1443 

1480* 

1559 

1819* 

2031* 

2078* 

2172* 



2972* 

m 

3141* 
3251* 

3*3*34* 




1941* 
2102 
2965* 
313b # 

4232* 
1533* 
1684 
2208* 
2538* 
2682* 
2891* 
3215* 
3749 
3989* 
4155* 



1409* 

1444 

1486 

1561* 

1826* 

2033* 

2082* 

2179* 



2973* 

m 

3142* 
3258 

m 
\m 

1906* 

2237 

2619 

2911 

2990* 

3104* 



3? 
4135* 



1943* 
2154 
2987* 

S. 

4233* 
1585* 
1692* 
2228* 



_'1S* 
2925* 
3229* 

m 



1412* 

1445 

1489 

1564* 

1857* 

203S* 

2085* 

2190* 



2974 

m 

3143 
3279 



1115 

1907 
2564 
2621 
2918 
3016 
3105 
3330 
3705 
4136 

1956 

2227 

3031 

3164* 

3387 

4238 

1587 

1694* 

2231 

"552 

§843 

2935 

3232 

3751 

4043* 



1415* 

1446 

1491 

1571 

1884* 

2046* 

2089* 

2188 



2975* 

ffif. 

3144* 
3286 



m 

1926* 
2567 
2622 
2919 
3019* 
3122* 
3335* 
3893 
4147* 

1%1« 
2229 
3078* 
3177* 
3672* 
4243* 
1613* 
1725* 
2234* 
2559* 
2844* 
2940* 
3255* 
3757 
4048* 



1421* 

1447 

1492 

1582 

1899* 

2049* 

2098* 

2192* 



2977* 



wr m 



* 

3145* 
3301* 
4* 



m 

1927 
2575 
2626 
2959* 
3045* 
3148* 
3357* 
3899 
4230* 

1973* 
2230 
3092* 
31%* 
3673* 

1615* 
1766* 
2242* 
2595* 
2847* 
3038* 
3264* 
3760* 
4062* 



1424* 

1448 

1498 

1583 

1900* 

2050* 

2137* 

2193* 



2978* 

m 

3165* 
3302* 

m 

1687* 

1892* 

1%7* 

2577 

2679 

2960* 

30% 

3170* 

3358 

393S* 

4231* 

1978* 

2235 

3114* 

3217* 

3674* 

1619* 

1770* 

2291* 

2611 

2850 

3075* 

3263* 

3771 

4083* 



1431 

1449 

1530* 

1607 

1901 

205S 

2119* 

2199* 



2979* 



)134* 
3172* 
3303* 

ar 

1691* 

1893* 

1958 

2580* 

26%* 

2972 

3052* 

3173* 

3364* 

4007* 

4232 

1987 

2565* 

3129* 

3225* 

367S 

1625* 

1773* 

22%* 

2612 

2852 

3093* 

3292* 

3814* 

4085* 



1432* 

1459* 

1548* 

1617 

1947 

2059* 

2120* 

2199* 



2980* 

m\ 

3192* 
3304* 

16%* 

1894* 

19%* 

2583 

2839* 

2973 

3053 

3201* 

3365 

4101* 

4234* 

1994* 

2579* 

3130 

3234* 

3703* 

1630* 

1775* 

2351* 

2621 

2855 

3111* 

335S* 

3854* 

4088* 



1433* 

i«63* 

1549 

1627* 

1%4 

2061* 

2126* 

2212* 



2982* 

3l36* 
3201 
330S* 
U8* 



1719* 

18%* 

1991 

2S97 

2871* 

2974 

3059* 

3202 

3371* 

4104 

i236* 

1997* 

2616* 

3131 

32S0* 

3707* 

1635* 

1821* 

2359* 

2639 

2857 

3127* 

339S* 

3898* 

■♦121* 



1434* 
1464* 

\mi 

2006 
2062* 
212'* 
2252* 
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SPOT 
SP0T2 

SRC : 

SRI : 
SR2 -- 

SR3 : 

START 
START 1 
STBANK 
STKPTR: 



012662 
012712 
177572 

17757M 
177576 
172516 
0Q230M 
0023% 
012155 
000500 



5TMM2 007342 



STRTtt) 
SWR s 

SUOO = 
SU01 = 
Stfft = 
T = 
TBITVE= 
TEMPO 
TEMPI 
TEMP2 
TEMP3 
THRR 
TKB = 
TKS = 
TKVEC = 
TOP 

TPB = 
TPS = 
TPVEC : 
TRAPVE: 
TRAP4 
TRTVECs 
TYPIT 
JBPEAK: 



015412 
177570 

000001 
000002 
000100 
000020 
000014 
004622 
011744 
0117% 
0J175O 
014322 
177562 
177560 
000060 
012540 
177566 
177564 
000064 
0C0034 
001446 
000014 
014340 
177770 
14G0Q0 



2257t 
3* 



247lt 

2505* 

2593* 

2759 

2913* 

3055* 

3179* 

3268* 

3367* 

3943* 

4002 

36441 

3645 

13111 

3699* 

13121 

13131 

13141 

1411 

1618 

2360 

12%l 

2212 

28001 

332B 

42501 

12921 

2741 

13071 

13081 

13091 

12561 

12701 

2277* 

3409* 

3406* 

3407* 

3891 

12891 

12881 

12771 

36011 

12911 

12901 

12781 

12761 

1586 

12711 

3628 

12871 

12618 



2258* 

m 

2472 

2506* 

2635 

2782* 

2921* 

3062* 

3180* 

3269* 

3374* 



?28 
3944* 
4016 
36% 
3651 j 
1463 
3742* 

1464 

18181 

18261 

34501 

1819 

2252 

2841 

3353 

4264* 

1576 

3081 

2341 
2281 



2279* 

3410* 

3411 

3410 

3892 

2481 

1459 

2589* 

4016* 
2300 

1363 
16491 



2261* 
?* 



75* 



2661* 

2791* 

2930 

3069* 

3192 

3278 

3381* 

3945 
4046* 



4014 



2262* 

ii 

2476* 

2510* 

2662* 

27%* 

2932 

3083 

3194 

3279 

3394* 

3947 
4055 



2268* 

2404 

2440* 

2485* 

2511* 

2664 

2829* 

29%* 

3084 

3204* 

32%* 

33%* 

mi 

3948 
4117* 



2269* 

2408* 

2441 

2486* 

2512* 

2665* 

2839 

2947* 

3100* 

3211* 

3297* 

34 °3* 

3%6# 
4125* 



22721 

?409* 

2449* 

2489* 

2513 

2666* 

2840 

2956 

3107* 

3223 

3326 

341 4* 

3%8 # 
4136* 



2273* 

2490* 
2517* 
2668* 
2873* 
29%* 



3327 
34%* 

3859* 

3%3 

4161* 



2287* 

2417* 

2464* 

2491* 

2518* 

2697 

2874* 

2997* 

M* 

3339* 

3626* 

3659 

3860* 

3%6* 



2319* 

2420* 

2465* 

2492* 

2526 

2704* 

2884 

29%* 

3154* 

3240* 

3340* 

3627* 

3716* 

3863* 

3%8 



2395* 

2421* 

2468* 

2493 

2530 

2712 

2885 

3031 

m 

3351 

3629 

3717* 

3933* 

3%9 



23%* 

2422* 

2469* 

2497* 

2535* 

2714 

2897* 

3032 

3164 

3251 

3352 

3630 

3718* 

3938* 

3974 



233-* 
2423* 
247:* 

24S6* 

25*7* 

2743* 

29CS* 

3049* 

3165 

3262* 

3360* 

3633 

3719* 

394C 

39=4 



4170 

1492* 

3772* 


1670 
4128 


1840* 


2334 


2 7 75* 


2793* 


2784* 


2792* 


2795* 


23il* 




1491* 


2782 


2791 


2829 
















1828 


2310 




















1826 


1857 
2319 
2931 


1884 

m 


2018 
2547 
3033 


2031 
2704 
3085 


2046 
34% 
3121 


2059 
3166 


2074 
3193 


2082 
3224 


2C9S 
3252 


=:<- 

328C 


4265 
1601 

3123, 


4266 
1610 
3390 


4267* 

1637 

3423 


4268 
1641 
3426 


4275 
1837 
3433 


4276 
2281 


2331 


2341 


2557* 


2569* 


2591* 



22%i 






34151 






34161 






34171 






3897 


3898 


3981 
3943 


3626 


3937 


1498* 


2479 


2590* 



3991 40101 4130 4131 4132 4133 
3624 3941 



3636 3658 3727 3939 3957 3960 3967 40141 4015 
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JP 
V 

UDS.25 

WHERE 

WRTTAB 

URTUP 

XHTDAT 

YMflBGO 

YNH8G1 

SADRSO 

SALL 

SCONST 

ICRLF 

SPILL 

SFOfWO 

SLOR 

5LDRH 

SL0R1 

SNULL 

SPRINT 



SRESTR 

SRLDR 

SROTO 

SR0T1 

SSPVR 

STKFLG 

STPB 

STPFLG 

STPS 

SUSER 

S1X8 

S3X9 

S3X9P 

S8X13 



.BANKS 

.CONST 

.EXTAD 

. HflHF 

.PARIT 

.PARSR 

.PAT 

.ROTO 

.R0T1 

.STBAN 

.*YPE 
.JSEP 



= 000000 



003M- 
00012M 
005202 

013224 
000004 
006100 
006000 
006130 
015122 
001011 
001520 
002040 
002204 
002202 
001010 
000760 



000330 
002130 
005600 
005674 
000304 
001013 
001016 
001012 
001014 
005472 
005222 
005312 
005770 
005400 
015556 



005126 
005504 
0063% 
007046 
005052 
006570 
005142 
011222 
011316 
005100 

001020 
211452 



13411 

12531 

20561 

13931 

2380 

18471 



ii 

3729 

12541 

25551 

2392 

25621 

1636 

15421 

1584 

17431 

1776 

1752* 

1541 1 

1H 

2552 

4048 

14431 

1407 

2389 

2390 

14311 

15451 

I547i 

15431 

15461 

2388 

2385 

2386 

2391 

2337 

13571 

16581 

2551 

3090 

3652 

23701 

2256* 

2556* 

1495 

2344 

26751 

23741 

2263 

2274 

2347 

2505 

1531 

2259 



2224 
2796 
2258 
1406 
23851 

m 

3742t 

2564 
25301 
2588 
1862 

1612 

1820 

17821 

1766 

1561 

15271 

1859 

2559 

4062 

1497 

17631 

2454 

2502 

1460 

1571* 

1569 

24591 

23951 

2413 

25261 

2434 

13631 

1682 

2634 

3099 

3672 

2396 

2267* 

2565 

1842 

23541 

2745 

2377 

2499 

2519 

23621 

2517 

15481 

2270 



2767 

2262 
1410 



2597* 



25% 

1618 
3618 

17801 

IS! 

2595 

4083 

1644 

2304 

24851 

25051 

1606 



2482 
2414 
24161 

2437i 
13661 

1749 

27351 

3106 

3717 

2417 

24631 

2598* 

2019 

2355 



32491 
32771 
2363 



2474 



2768 2771 2816 2817 



2269 
1413 



4049 
16601 



SI 

2659 
4085 
1699 



2503 
2522 
1662 



2523 
2527 

2455 
13681 
1786S 
2889 
203 



2440 
2495* 
2607S 
2346 



2395 
2496 



2273 

1416 1422 1425 4163 



4089 
1858 



m m 



2682 
4088 
1736 



2531 



1371 S 
1801 S 
28% 

m 

2450 
2515* 



4146 4191S 



m 

2715 
4121 
2573 



13788 

1855 
2904 

2%5 
3329 



2408 
2516 



2416 
33261 



m 

3616 
4123 
3408 



1717 2571 3404 



1404S 

1959 

2912 

3289 

4177 

2486 

3350 



2357 2706 274 is 



2429 



3621 
4137 



m k 



3888 

4143 



635 
44 
3894 

4145 



1639 
2460 
3907 
4155 



1725 
2538 
4000 



1775 

2S-*c 

+Zi2 



1418s 

1992 

2920 

3359 

4228 

2506 



1454S 


15141 


1570 


1577 
2211 
3061 


:b-*2 


2000 


2136 
3047 


2205 


2301 


3036 


3054 


3068 
36^6 


3366 


3373 


3380 


3434 


4240 


4246 


4253 


4256 





2439 2449 2464 2H75 2*55 — " 
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1817 
-3IS0 
.3IS1 
.3IS9 
.3N0T9 
.3X9 
.5* 15 



010212 
011524 
007&24 
010300 
011028 
007S12 
0117M2 
010230 
010220 
010248 
010238 
010080 
010750 



2994 

2477 

2038 

2083 

2090 

2027 

2558 

3004 

30051 

3007 

3008 

2051 

2079 



30031 

3349t 

2128 

2181 

2200 

2121 

3411f 

30081 

3009 
30101 

2175 
2194 



HOS 
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3043 3098 

2410 28821 

2431 30271 

2451 31891 

2406 28391 
34141 



30131 

2426 295611 
2448 31641 
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ROC 

AOCB 

AOO 



ASL 



ASR 
BCC 
BCS 
3EQ 



BGE 

BGT 

BHI 

BHIS 

BIC 

BIS 
BIT 

BLE 

BL05 

BLT 

BMI 

BNE 



BPL 
BP 



BVC 
BVS 

CLC 
CLP. 



CMP 



lb85 
423b 
1529 

i& 

3821 



2598 
1550 

§4lf 
3822 



lis? till 



2401 
2509 
2579 
2592 
233S 
14b2 
1989 



3099 
3831 
3b45 
383b 
257b 
3794 
lb03 
3944 
lbOM 
lbOl 
3390 
3901 
25b8 
15b5 
1394 
1553 
1%2 
2434 
2929 
3174 
338b 

iso; 

15b 

2327 

3007 

4278 

2934 

1909 

325b 

1401 

1840 

2227 

2703 

3055 

3499 

3933 

3435 
42 u 2 

1598 



2402 
2510 

2b52 
2558 
1482 
1992 

m 

310b 
3b34 
3bbl 

3872 
3797 
lb72 
4134 
2108 
lblO 
3423 

3744 
3b85 
2889 
15b0 
1979 
2438 
2941 
317b 
3388 
1570 
lb89 
2350 
3429 

312b 
1975 
4005 
1500 
1939 
22b7 
2749 
30b2 
3501 
3934 



1753 



lbOO 
3823 

7113 

2403 
2511 

2758 
2570 
1494 
2000 

mi 

3152 
3951 
3828 



lb4b 
2379 
3b48 
3843 



lbbO 
2381 
3653 
3844 



fill ill? 



2420 
2512 

3287 
3259 
1599 
2008 
345 



3203 
3970 
3833 



2421 
2757 



4244 
lb02 
20b7 



3210 
3980 
397b 



1661 
2597 
3b54 
3975 

"us 

2422 
2933 



1638 
2088 
2442 
2992 
3227 
3990 



lb84 
2bl4 
3b73 
3977 

189b 
2423 
3125 



lbb9 
209b 



£3 

3b74 
405b 

1897 
24b8 
322b 



1671 
2103 



m m 



3261 
4129 



3289 
41b8 



$3 

3705 
4092 


m 

3718 
4093 


$Sk 

3719 
4097 


KB 

3750 
4098 


m 

37b9 
411b 


m 

3819 
4118 


m 

3820 
4135 


1898 
?4b9 
3392 


2145 
2470 
3b83 


214b 
2471 


220b 
2489 


2378 
2490 


2397 
2491 


24C0 
2492 


1744 
2155 

m 

3359 


1874 
2185 

$f 

33bb 


1891 
2205 

3047 
3373 


1917 
2221 

3380 


1928 
2238 
276b 
30bl 
3424 


1959 
22% 

3427 


1977 
2282 

m 

3434 



lb83 


1700 


1701 


1900 


2087 


2139 


2149 


2213 


2159 
1537 
342b 


2585 
lb70 
3433 


2590 
1837 
4128 


275b 
2281 


279b 
2331 


3428 
23M1 


3430 
2441 


2741 



2584 
3003 



3422 
3005 



3491 
3008 



3497 
3081 



3752 
37S5 
3012 
1581 
1995 
24S4 
2943 
3178 
3391 

1749 
2414 
3b38 

3228 
2755 

1591 

41§3 
27b9 
30b9 
3bl4 
3935 



42b9 
3978 
3809 
lbll 
2003 
!>7 



4058 
3813 
1622 
20b9 



40M2 
lb93 
2232 



2243 



4237 
1735 
2280 



321b 
3393 

mi 

2435 
37bl 

4245 
4240 

lbb4 
1971 
2317 
2772 
3088 
3b 15 
4030 



m 

2455 
3801 



3233 

m m 



]3 
59 



3238 
42b3 



m 


17b4 


1772 


1838 


1911 


2332 


2348 


23b4 


239S 


2413 


2711 


2742 


2803 


2870 


2872 


3112 


3115 


3118 


3124 


3147 


3265 


32b7 


3293 


3295 


333b 


4274 












3090 


3b25 
2071 


3942 


4015 


m 


2004 


2189 


2249 




2b0b 


2b31 


2b34 


2b9b 




4105 


414Q 


4148 


422B 



1873 1910 



1696 


1720 


1727 


m 


m 


m 


2783 


2795 


2818 


3100 


3107 


31b7 


3651 


3b71 


3b99 


4031 


4095 


4100 


1927 


1947 


1958 



1777 

371 



2887 
3204 
3702 
4101 



19b4 



1823 

19 

2897 
3211 
371b 
4181 



1824 

m 

2905 
3262 
3730 
4234 



1827 
21b7 
2515 


1830 


1831 


1833 


2171 
2548 


y& 


liS 


2913 


2921 


2958 


3034 


3281 


3360 


33b7 


3374 


3742 


3792 


384b 


3857 



3627 
3123 



1944 
2419 
2926 
3149 
3338 



2251 
2718 
4239 



183b 



3048 
3381 
3870 



197b 1987 



1991 



1999 200b 2204 
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CMP9 

con 



DEC 



DECS 

4A^T 
INC 

INCB 
JMP 



JSR 



MOV 



2289 
3067 
3743 
1559 
1841 
2937 
311b 
1692 
2871 

3175 
3795 
i5b4 
1337 



25b7 


2575 


2b02 


3098 


3105 


3202 


3751 


3779 


3793 


190b 


1923 


233b 


2938 


2939 


29b0 


31b9 


3171 


3197 


m 


1734 
2928 


2940* 


3177 


3215 


3217 


3873 


4050 


4262 



2bl9 
3209 
379b 

2b3b 
2989 
3219 
1753 
2942 

m 



2b22 



9 



2844 
2990 
3230 

3232 



2b24 
3288 
3832 

284b 
3037 
3231 

gg 

3234 



2b35 
3 



2847 
3074 
323b 

m 

32b4 



1372 


1408 


147b 


1578 


1 POO 

1583 


1543 


2343 


2530 


418? 


1940 


1955 


1994 


* o or 

133b 


ftftilft 

2247 


2248 


2288 


3707 


j753 


3772 


3979 


3383 


4057 


4233 




2223 


—\r ft ft 

2533 


1 1 ft ftft 

4238 


1 1 01 i ft 
4243 










1411 


1414 


1417 


« • i — > ft 
1423 


142b 


1 ^o o 

1532 


2037 


f5 i np 

2105 


2527 


2531 


o^n ft 
2542 


ft*9n*9 

2707 


ft i eft 

3153 


3502 


3550 


-5f 7Q 

3573 


427b 
















i o#>*» 

1397 


i i in/ 

140b 


1407 


1410 


i u i o 

1413 


141b 


1422 


1425 


1584 


1585 


1587 


• t or 

IbOb 


IblS 


if 

1513 


it tp 
1515 


• f (O 

1518 


lb44 


• t r o 

1582 


1539 


1717 


1725 


173b 


1775 


1820 


i oor 

193b 


1352 


1384 


^n i n 
2019 


2020 


2027 


on. or 

cuob 


one 1 

cubl 


o • ^ • 
2151 


2175 


2181 


o • on 

2194 


2200 


2208 


2222 


2253 
23b a 


ooor 

2306 


234b 


2343 


2351 


2353 


2357 


2359 


2410 


242b 


2431 


LI Li Li 


OLiLiO 

2448 


2451 


24b0 


24bc 


2540 


2552 


5PPM 

2554 


2559 


cool 




arc 


cb/J 


o^ 

2532 


270b 


2715 


2810 


OOLi I 

2841 


2883 


ccob 




303J 


3043 


3043 


3u5o 


■yif o 


on*7n 
JU/U 


JUob 


30% 


3212 


3224 


3243 


3252 


3257 


JcbJ 


JcV / 


noon 
Jcou 


3382 


ft\t IQU 

3404 


3405 


3408 


34 £h 


J4*JJ 


Jblb 


Jolo 


«V CO 

3fc 58 


*v r o 

3bo3 


3bb9 


ft* 7fl 


o«7nO 

3/09 


371d 


J/cb 


J/CY 


von 


3831 


3892 


3894 


Jcrib 


Jot/ 






4000 


tin i n 
4010 


Lin i i 
4011 


Lin i o 
4012 


402b 


Mind 




unuo 


41P3 

i ICO 


« ICO 




4131 


4132 


4133 


4137 


u 133 


139b 


1400 


1405 


1409 


1412 


1415 


1421 


1424 


1438 


1443 


1444 


1445 


144b 


1447 


1448 


1449 


14b8 


1470 


1471 


1473 


1475 


1480 


1483 


1484 


1499 


1528 


1530 


1548 


1549 


1555 


15bl 


1582 


lb45 


lbb3 


lbbb 


lbb7 


lb78 


lb79 


ib88 


1594 


1753 


1754 


1755 


1758 


17bb 


17b8 


17b9 


1770 


1839 


1847 


1848 


1850 


1851 


1852 


1853 


1857 


1892 


1899 


1902 • 


1905 


1908 


1915 


1918 


1919 


1938 


1941 


1942 


1950 


1951 


1953 


195b 


1957 


198b 


1990 


1997 


1998 


2011 


2018 


2021 


2024 


2047 


2048 


2049 


2054 


2055 


2057 


2059 


2050 


2082 


2083 


2084 


2085 


2089 


2098 


2109 


211b 


2141 


2143 


2147 


2148 


2150 


21b0 


21b8 


2172 


2203 


2207 


2212 


2214 


2218 


2219 


2224 


2225 


2252 


2253 


225b 


2257 


2258 


22b0 


22bl 


22b2 


228b 


2287 


2302 


2319 


2324 


2325 


2337 


2375 


2409 


241b 


2417 


2424 


2429 


2430 


2439 


2440 


2485 


248b 


2493 


2495 


2497 


2498 


2505 


250b 


5547 


2549 


2551 


255b 


25b3 


2554 


2555 


2577 


2fcCi 


2bli 


2bi2 


2bl3 


2615 


2fcl8 


2621 


2538 



2895 

m 

2890 
3077 

m 

32bb 



2b32 
2411 



213b 
3780 

l u b0 
lb!9 
1821 
2053 
2253 
2355 
2474 
25B2 
2905 
3101 
3285 
3519 
3758 
3939 
4052 
4143 
1431 
1450 
1485 
15B3 
1718 
1773 
1855 
1920 
195B 
2025 
2051 
2120 
2178 
2225 
2258 
2377 
2449 
2513 
2578 
2540 



2903 

m 

2893 
3091 

1978 
3111 
3292 



4241 
2432 



215b 
3837 

1495 
1525 
1842 
2079 
2270 
2357 
2477 
2S94 
2914 
3108 
3328 
3521 
3778 
3957 
4083 
4145 
1432 
1459 
1485 
1505 
1719 
1818 
1855 
1921 
1959 
2030 
2052 
2123 
2180 

m 

2380 
2450 
2517 
2583 
2547 



2911 

m 

2901 
3102 

2002 
3114 
3294 



4247 
2452 



2211 
4004 

1497 
lb28 
1849 
2090 
2274 
2359 
24% 
2595 
2922 
3121 
3349 
3528 
3814 
3950 
4085 
4155 
1433 
1453 
1488 
1507 
1724 
1819 
1857 
1922 
1973 
2031 
2070 
2127 
2188 
2229 

2382 
2464 
2518 
2587 

2648 



2919 



2909 
3103 

2231 
3117 

3335 



2478 



2293 
4169 

1504 
1530 
1858 
2099 
2285 
2371 
2499 
2555 
2931 
3155 
3353 
3535 
3825 
3957 
4087 
4153 
1434 
1454 
1489 
1508 
1737 
1825 
1858 
1925 
1974 
2032 
2074 
2132 
2191 
2230 
2272 
2395 
2465 
2526 
2586 
2653 



3046 

m 


3053 

m 


3C50 
3660 


Ort 1 0 

2917 
3109 


0000 

2927 
3110 


00 or 

2936 
3113 


2242 

T 1 Lit 

3146 
3337 


2279 

1 ufl 

314B 
3385 


2869 

2173 
3387 


2500 


2520 


3584 


2310 
4170 


2446 
4248 


2523 
4265 



1531 
1633 
1859 
2121 
2291 
2373 
2516 
2559 
2957 
3190 
3351 
3539 
3838 
3961 
4088 
4155 
1435 
1455 
1491 
1617 
1746 
1825 
1872 
1934 
1982 
2033 
2075 
2137 
2193 
2234 
2273 
23% 
2472 
2530 
2589 
2655 



1558 
1635 
1%1 
2128 
22% 
2375 
2519 
2553 
2W 
3193 
3358 
3555 
3854 
3991 
4120 

1436 
1455 
1492 
1627 
1747 
1828 
1884 
1935 
1983 
2035 
2076 
2138 
2197 
2235 
2277 
2404 
247S 
2535 
2593 
2661 



1555 
1539 
1870 
2133 
2304 
2405 
2538 
2582 
3028 
3205 
3375 
3555 



3993 
4121 

1437 
1457 
14% 
1632 
1752 
1832 
1885 
1937 
1985 
2046 
2077 
2140 
2199 
2236 
2284 
2408 
2476 
2536 
2600 
2b£^ 
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2666 
'743 
5780 





2830 




28b0 




2918 




2973 




3018 




3120 




3192 




3258 




3333 




3407 




3bb2 




3723 




3800 




3893 




4051 




4177 


MOVB 


1552 




3140 


NEG 


2034 


NOP 


1479 




3027 


RESET 


2094 


ROL 


1581 


ROLB 


3301 




331b 


ROR 


lb74 


RTI 


13b2 


RTS 


137b 




2808 




3413 


SEC 


2333 


SEV 


2753 


SOB 


1459 


SUB 


lb09 




3852 


SWAB 


lb73 


TRAP 


133b 


TST 


1393 




2009 




2344 




2521 




3035 




3947 


TSTB 


1559 


.A8S 


1200 


.ASCII 


1549 


.ASCIZ 


1509 




3453 




4215 


.BYTE 


1541 


.END 


4285 


.EVEN 


1514 


.LIST 


7 



2575 257b 2b77 

§33 §35 £3 

2839 2840 2842 

28bl 28b2 2864 

2930 2932 2935 

2974 2975 2977 

3019 3031 3032 

3122 3127 3128 

3194 31% 3198 

3258 3259 3278 

3334 3339 3340 

3409 3410 3411 

3564 3667 3570 

3724 372b 3729 

3811 3817 3818 

3899 3903 3904 

40b4 4055 4091 

4180 4230 4232 

1571 1695 2697 

3141 3142 3143 

2056 2086 

1506 1527 1597 
3189 

2278 2305 2550 

1587 1691 1721 

3302 3303 3304 

3317 3318 

1675 1676 1677 

1507 1556 1647 
1395 1402 1533 
2822 2875 2948 
3435 3b8b 3799 
2b50 3284 4235 

1472 1487 1490 

1665 1751 1869 

3863 4231 4267 
2811 
4277 

1461 1481 1493 

2066 2068 2095 

2347 2355 2363 

2505 2517 2626 

3040 3089 3094 

3948 3958 3958 

1521 1623 2300 

1794 1795 4188 

1652 1653 1655 

3466 3475 3478 

4216 4219 

1542 1543 1545 

1658 1786 1801 

1197 1199 



2678 2579 

2747 2748 

2791 2792 

2843 2848 

2865 2866 

2946 2947 

2978 2979 

3038 3045 

3129 3154 

3201 3208 

3279 3283 

3350 3351 

3431 3432 

3672 3675 

3745 3746 

3824 3825 

3936 3938 

4094 40% 

4252 4253 

2714 3130 

3144 3145 

1914 1931 

2705 3500 

1722 1728 

3305 3306 

2557 2569 

2701 2785 

1572 1702 

2999 3017 

3810 3854 



2580 2681 

2754 2759 

2813 2815 

2849 2850 

2867 2873 

2956 2959 

2980 2982 

3052 3059 

3155 3164 

3223 3225 

3286 3296 

3352 3355 

3490 3492 

3682 3698 

3747 3748 

3829 3830 

3943 3%6 

4099 4104 

4256 4259 

3131 3132 

3626 4016 



2307 

4162 
1729 
3307 

2580 
2793 
1738 
3020 
3874 



2687 


2688 


2694 


2695 


2698 


2704 


2712 


2767 


2817 




2771 


%£} 


2774 


2775 


2816 


281? 


2820 


2821 


2826 


2829 


2851 


2852 


2854 


2855 


2856 


2857 


2859 


2874 


2884 


2885 


2891 


2894 


2902 


2910 


2964 


2%5 


2967 


2968 


2%9 


2970 


2972 


2983 


2984 


2985 


2997 


2998 


3015 


3016 


3066 
3165 


3083 
3168 


31/0 


3092 
3172 


3093 
3179 


3097 
3180 


3104 
3191 


3229 


3239 


3240 


3250 


3251 


3253 


3255 


3297 


3326 


3327 


3329 


3330 


****** • 
3331 


3332 


3357 


3364 


3371 


3378 


3394 


33% 


3406 


3496 


3498 


3635 


364b 


Jb^T 


OCC3 
JO DC 


Job/ 


3700 


3701 


3703 


3704 


3706 


3714 


3717 


3749 


3757 


3762 


3767 


3770 


3771 


37% 


3831 


3834 


3839 


3842 


3845 


3851 


3858 


3%6 


3974 


3985 


4026 


4028 


4029 


40% 


4117 


4119 


4125 


4136 


4147 


4161 


4164 


4260 


4261 


4264 


4266 


4270 


4271 


4275 


3133 


3134 


3135 


3136 


3137 


3138 


3139 



1682 
1904 



2581 
1925 



1554 1576 

2102 2142 

23% 2412 

2651 2690 

3151 3237 

3%9 3994 

2479 2710 

m 



1657 
3484 



3485 



1970 



1579 
2144 
2418 
2765 
3629 
4002 
3624 



1799 
4185 



2308 


2309 


2637 


2702 


2764 


1730 


1731 


1732 


1733 




3308 


3309 


3310 


3311 


3312 


2591 


2804 


2805 


2806 


2807 


2797 


2831 


3677 


3773 


3847 


1745 


1760 


1765 


1778 


2642 


3156 


3181 


3241 


3270 


32% 


3905 


3*3% 


4008 


4013 


4017 


2654 


2713 


2789 


3760 


3765 


1641 


1668 


1743 


1748 


1763 


2154 


2184 


2186 


2220 


2239 


2433 


2437 


2453 


2466 


2481 


2800 


2802 


2888 


2944 


2961 


3637 


3659 


3728 


3808 


3812 


4038 


4041 


4059 


4167 


4272 


3941 


4014 








2728 


2731 


3439 


3445 


3450 


4191 


4192 


4193 


4199 


4200 



2776 


2825 


2882 


3313 


3314 


3315 


2812 


4006 


4007 


2669 
3319 
4066 


2760 
3341 
4182 


2777 
33% 


3859 


3860 


3861 


1890 
2241 
2487 
2991 

JS5? 


1916 
2245 
2501 
3010 
3937 


2007 
2334 
2507 
3013 
3940 



3454 3459 3%2 
4203 4205 H21Q 



2685 2686 

2735 3487 4222 



M09 



TEST DOQAB-A 0-124K MEMORY EXERCISER MACY11 27(732) 1Q-SEP-7B 10:35 PAGE 119 

DDQABA.Pll CROSS REFERENCE TABLE — PERMANENT SYMBOLS 

.NCALL 1201 

•NLIST 7 1197 1198 
.REN 8 

.SBTTL 1203 1453 1513 

2833 2950 3159 
•TITLE 1202 

.WORD 1358 1359 1381 

1501 1515 1515 

2039 2058 2173 

2391 2392 2405 

2722 2723 2724 

3855 3855 3855 

4063 4067 4084 

4251 4279 4280 



1S94 


1804 


2014 


2216 


2312 


2313 


2532 


2544 


2b08 


2609 


2671 


2762 


3243 


3343 


3398 


3504 


















1362 


1364 


1365 


1367 


1369 


1379 


1380 


1398 


1399 


1419 


1420 


1474 


1521 


1522 


1532 


1546 


1547 


1580 


1739 


1741 


1774 


1780 


1803 


1829 


2295 


2322 


2354 


2362 


2370 


2374 


2385 


2386 


2387 


2388 


2389 


2390 


2425 


2463 


2473 


2494 


2514 


2537 


2555 


2562 


2607 


2658 


2667 


2721 


2725 


2726 


2750 


3414 


3415 


3416 


3417 


3611 


3617 


3622 


3815 


3816 


3666 


3867 


3869 


3895 


3908 


3911 


3912 


3914 


3915 


4001 


4044 


4049 


4086 


4089 


4122 


4124 


4138 


4144 


4146 


4152 


4156 


4227 


4229 


4250 



ERRORS DETECTED: 0 

DEFAULT GLOBALS GENERATED: 0 

*D0QABA,D00ABA. SEQ/SOL/CRF/DS : ERFZ/EN: ABS=DSKM: DDGABA. PI 1 
RUN-TINE: 21 25 5 SECONDS 
RUN-TINE RATIO: 131/52=2.4 
CORE USED: 10K (20 PAGES) 



